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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-12-24 17:41 | 只看該作者

ActiveSheet.Shapes.AddPicture (Picname), msoTrue, msoTrue, [D1].Left, [A2].Top, 5 / 0.035, 1.2 / 0.035
請問一下上述指令中的[A2]的2,我想改成變數I,該怎嚜寫? 一直沒試成功....

2^#

發表於 2015-12-24 18:02 | 只看該作者

Cells(I, "A")

3^#

發表於 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

複製代碼

4^#

發表於 2015-12-25 13:26 | 只看該作者

原來是這樣,謝謝大家
我基礎不好,有時GOOGLE不到答案,常常麻煩各位先進.....謝謝

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。