Excel VBA 圖片橫向插入問題

#excel #vba

longtimetalk 2020-10-05 01:27:54 ‧ 2141 瀏覽

分享至

因需求希望圖片能從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

froce iT邦大師 1 級 ‧ 2020-10-05 08:01:41 檢舉

ActiveCell.Offset(1).Select改成ActiveCell.Offset(0,1).Select

不過應該會變成在A1開始。

longtimetalk iT邦新手 5 級 ‧ 2020-10-05 23:12:15 檢舉

感謝你的回答。

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2020-10-05 08:00:04

最佳解答

ActiveCell.Offset(1).Select

改成

ActiveCell.Offset(0,1).Select

試試看

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

回應 4
分享
檢舉

看更多先前的回應...收起先前的回應...

froce iT邦大師 1 級 ‧ 2020-10-05 08:03:47 檢舉

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

海綿寶寶 iT邦大神 1 級 ‧ 2020-10-05 08:43:26 檢舉

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

海綿寶寶 iT邦大神 1 級 ‧ 2020-10-05 08:48:00 檢舉

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

longtimetalk iT邦新手 5 級 ‧ 2020-10-05 23:18:18 檢舉

感謝你的回答。

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22201 篇

完賽人數

602 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙