返回列表 上一主題 發帖

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

morris_lth

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

[發問] 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#
發表於 2016-1-13 16:06 | 只看該作者
感謝回覆 ~ok了

TOP

Joforn
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-11-6 
3#
發表於 2015-12-24 19:53 | 只看該作者
I=2
ActiveSheet.Shapes.AddPicture (Picname), msoTrue, msoTrue, [D1].Left, Range("A" & I).Top, 5 / 0.035, 1.2 / 0.035
世界那麼大，可我想去哪？

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
2#
發表於 2015-12-24 19:53 | 只看該作者
要不要試試
range("A" & i)
cells(i,1)

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題