返回列表 上一主題 發帖

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

morris_lth

帖子
27 
主題
11 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-15 
最後登錄
2023-10-27 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-12-24 17:41 | 只看該作者

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

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

morris_lth

帖子
27 
主題
11 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-15 
最後登錄
2023-10-27 
4#
發表於 2015-12-25 13:26 | 只看該作者
原來是這樣,謝謝大家
我基礎不好,有時GOOGLE不到答案,常常麻煩各位先進.....謝謝

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2015-12-24 19:41 | 只看該作者
本帖最後由 c_c_lai 於 2015-12-24 19:44 編輯

回復 1# morris_lth
  1. Sub Ex()
  2.     Dim rngA As Range, rngB As Range, c1 As Long, c2 As Long
  3.    
  4.     Set rngA = [D1]
  5.     Set rngB = [A2]
  6.     ActiveSheet.Shapes.AddPicture (ThisWorkbook.Path & "\c.png"), msoTrue, msoTrue, rngA.Left, rngB.Top, 5 / 0.035, 1.2 / 0.035
  7.    
  8.     c1 = 1: c2 = 15
  9.     ActiveSheet.Shapes.AddPicture ThisWorkbook.Path & "\c.png", msoTrue, msoTrue, Range("D" & c1).Left, Range("A" & c2).Top, 5 / 0.035, 1.2 / 0.035
  10. End Sub
複製代碼

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2015-12-24 18:02 | 只看該作者
Cells(I, "A")

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題