ActiveSheet.Shapes.AddPicture 位置改成變數該如何寫? - Excelㄧ般區

[發問] ActiveSheet.Shapes.AddPicture 位置改成變數該如何寫?

1^# 跳轉到 »

發表於 2015-12-24 19:41 | 顯示全部帖子

本帖最後由 c_c_lai 於 2015-12-24 19:44 編輯

回復 1# morris_lth

Sub Ex()
Dim rngA As Range, rngB As Range, c1 As Long, c2 As Long
Set rngA = [D1]
Set rngB = [A2]
ActiveSheet.Shapes.AddPicture (ThisWorkbook.Path & "\c.png"), msoTrue, msoTrue, rngA.Left, rngB.Top, 5 / 0.035, 1.2 / 0.035
c1 = 1: c2 = 15
ActiveSheet.Shapes.AddPicture ThisWorkbook.Path & "\c.png", msoTrue, msoTrue, Range("D" & c1).Left, Range("A" & c2).Top, 5 / 0.035, 1.2 / 0.035
End Sub

複製代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。