返回列表 上一主題 發帖

如何改VBA?

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-27 15:47 | 只看該作者

如何改VBA?

Sheet2.Shapes.AddPicture Sheet1.Range("B" & Ass).Value, True, True, [A1].Left, [A1].Top, 9.47 / 0.035, 8 / 0.035
要如可才可以改成
Sheet2.Shapes.AddPicture Sheet1.Range("B" & Ass).Value, True, True, Sheet2.Range(cells(1,GG)).Left, Sheet2.Range(cells(1,GG)).Top, 9.47 / 0.035, 8 / 0.035
但這句有錯.

因為[A1]  會改變 [B1] [C1]
請大大門指導
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2010-6-27 21:40 | 只看該作者
您是指這樣嗎?

Sheet2.Shapes.AddPicture Sheet1.Range("B" Ass).Value, True, True, Sheet2.Cells(1,1).Left, Sheet2.Cells(1,1).Top, 9.47 / 0.035, 8 / 0.035
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
3#
發表於 2010-6-27 21:53 | 只看該作者
回復 2# Min

thx.
原來是寫多了個 Range ><
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題