iT邦幫忙

0

Excel VBA 圖片橫向插入問題

因需求希望圖片能從A2列依序橫向插入,網路上只找到縱向插入。
列出給各位參考,希望能優先修改此程式。
先在此感謝回答者。

Sub 插圖()
    sPath = "C:\Users\Administrator\Desktop\APP\"
    sFile = Dir(sPath & "*.jpg")
    Range("A1").Select
    Cells.RowHeight = 100
    Rows(ActiveCell.Row & ":" & ActiveCell.Row).ColumnWidth = 18
    Do While sFile <> ""
    ActiveSheet.Shapes.AddPicture sPath & sFile, True, True, 0, iTop, 90, 90
        iTop = iTop + 100
        sFile = Dir()
        ActiveCell.Offset(1).Select
    Loop
End Sub

https://ithelp.ithome.com.tw/upload/images/20201005/20131103pLNfk99s0B.jpg

froce iT邦大師 1 級 ‧ 2020-10-05 08:01:41 檢舉
ActiveCell.Offset(1).Select改成ActiveCell.Offset(0,1).Select

不過應該會變成在A1開始。
感謝你的回答。

1 個回答

0
海綿寶寶
iT邦大神 1 級 ‧ 2020-10-05 08:00:04
最佳解答
ActiveCell.Offset(1).Select

改成

ActiveCell.Offset(0,1).Select

試試看

另外,點這裡是我這次鐵人賽唯一的一篇文章,喜歡的話左上角點 Like

看更多先前的回應...收起先前的回應...
froce iT邦大師 1 級 ‧ 2020-10-05 08:03:47 檢舉

ㄜ...輸海綿寶寶1分鐘。

1分鐘沒什麼差
底下這列好像沒改到...
ActiveSheet.Shapes.AddPicture sPath & sFile, True, True, 0, iTop, 90, 90

ActiveSheet.Shapes.AddPicture sPath & sFile, True, True, 0, iTop, 90, 90
        iTop = iTop + 100

改成

ActiveSheet.Shapes.AddPicture sPath & sFile, True, True, iLeft, 0, 90, 90
        iLeft = iLeft + 18

感謝你的回答。

我要發表回答

立即登入回答