basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-6-4 22:26 | 只看該作者

插入圖片vba問題

如何在 a3插入圖片 D:\圖片2\144.JPG 再改寛度為10cm? 這個vba不會寫><

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-6-4 22:56 | 只看該作者

回復 1# basarasy

Sub Ex()
'1point=0.035cm
Sheet1.Shapes.AddPicture "D:\圖片2\144.JPG", True, True, [A3].Left, [A3].Top, 10 / 0.035, 8 / 0.035 '寬10CM,高8CM
End Sub

複製代碼

學海無涯_不恥下問

TOP

wqfzqgk

中學生 Rank: 2

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

3^#

發表於 2010-6-6 15:51 | 只看該作者

学习

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

4^#

發表於 2010-6-28 15:51 | 只看該作者

wqfzqgk 發表於 2010-6-6 15:51

請問之個如何寫的?

50 字節以內
不支持自定義 Discuz! 代碼

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2010-6-28 16:07 | 只看該作者

回復 4# basarasy

http://forum.twbts.com/viewthread.php?tid=670

請參考1樓小魚兒兄提供好東西.
http://www.officefans.net/cdb/vi ... age=1&tid=12967

CTRL+SHIFT+ALT 開始 \ 結束
另存路徑檔名就是動晝檔了

TOP

basarasy