請教 Excel 插入圖片問題

bennyngsh

我現己可以在 a2 入 名 然後行個巨集 a1 就出到圖片,

現請教我怎樣才可以掃晒張 sheet 的 名 然後在上一格出到張圖..!!

例如 c2,e2, a5 & c5....有 名, 就在 c1, e1, a4 & c4.. 出圖..!!

現在我 search 到的 code...!!

Sub ChangeSize()
　　picname = [a2] & ".jpg"　'插入的圖片名稱
　　Mypath = ThisWorkbook.Path & "/"
　　Set MyPic = ActiveSheet.Pictures.Insert(Mypath & picname)
　　With MyPic
　　　　.ShapeRange.LockAspectRatio = msoFalse
　　　　.Left = [a1].Left
　　　　.Top = [a1].Top
　　　　.Width = [a1].Width
　　　　.Height = [a1].Height
　　End With
End Sub

謝謝

Guillo

用個forloop loop 哂有name field 既cell, get value咪得
你可以用Range() / Cells()

bennyngsh

用個forloop loop 哂有name field 既cell, get value咪得
你可以用Range() / Cells()
Guillo 發表於 2013-10-16 15:21

先謝謝 CHing....

因為我只是一個小小的文員仔...未寫個 VBA...
如用返我 Search 返來的 Code..!!
我應該怎樣寫 和 應該放在那裡呢...??

Sub ChangeSize()
    picname = [a2] & ".jpg"  '插入的圖片名稱
    Mypath = ThisWorkbook.Path & "/"
    Set MyPic = ActiveSheet.Pictures.Insert(Mypath & picname)
    With MyPic
        .ShapeRange.LockAspectRatio = msoFalse
        .Left = [a1].Left
        .Top = [a1].Top
        .Width = [a1].Width
        .Height = [a1].Height
    End With
End Sub

謝謝指教...

Guillo

[a2] 係你個cell , 其實即係Range("A2") / Cells(2,1)
咁如果你要A2 C2 A5 C5
即係
Range A2, Range C2, 如此類推
可以用Dim x , x = Array ("A2", "C2", "A5", "C5");
然後用forloop, loop x[1], x[2]，將個value throw 入去ChangeSize() 度

你可以上網search vba array, vba forloop

bennyngsh

回復 4# Guillo

謝謝 CHing

Let me try try sin.....Thanks..!!