插入圖片vba問題

帖子: 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! 代碼

apple99152

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: WINDOWS 8.1
軟體版本: Office 2013
閱讀權限: 10
性別: 女
來自: 台北
註冊時間: 2015-4-30
最後登錄: 2015-5-8

12^#

發表於 2015-4-30 13:42 | 只看該作者

謝謝Hsieh大分享, 非常受用

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

11^#

發表於 2012-4-15 23:22 | 只看該作者

Sub InputPictures()
Dim fs(), A As Range
If ActiveSheet.Shapes.Count > 0 Then
ActiveSheet.Shapes.SelectAll
Selection.Delete
End If
On Error GoTo 10
fs = Application.GetOpenFilename("所有圖片(*.jpg;*.png;*.tiff;*.bmp;*.gif),*.jpg;*.png;*.tiff;*.bmp;*.gif", , , , True)
For i = 1 To UBound(fs)
Set A = Cells(i, 1)
A = fs(i)
With 工作表1.Shapes.AddPicture(fs(i), True, True, A.Offset(, 1).Left, A.Top, A.Offset(, 1).Width, A.Offset(, 1).Height)
.Placement = xlMoveAndSize
End With
Next
10
End Sub

複製代碼

學海無涯_不恥下問

JOYARK

帖子: 6
主題: 4
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-5-6
最後登錄: 2024-10-24

10^#

發表於 2012-4-15 21:39 | 只看該作者

謝謝提供學習非常實用

JOYARK

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

9^#

發表於 2010-6-28 22:58 | 只看該作者

請問有冇大大可以教我 3樓 wqfzqgk 大大的插入圖片方法?
我用的是2007 .

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

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

8^#

發表於 2010-6-28 19:14 | 只看該作者

回復 7# PD961A

權限不足,不能下載.

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

版主 Rank: 7 Rank: 7 Rank: 7

PD961A

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

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

7^#

發表於 2010-6-28 17:44 | 只看該作者

本帖最後由 PD961A 於 2010-6-28 17:46 編輯

回復 6# basarasy

下載就好啦..
而且HS版主程式碼也寫好了..
謝謝..

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

6^#

發表於 2010-6-28 17:42 | 只看該作者

回復 5# PD961A

我是問他插入圖片的VBA如何寫.

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

版主 Rank: 7 Rank: 7 Rank: 7

PD961A

帖子: 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 開始 \ 結束
另存路徑檔名就是動晝檔了

帖子: 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! 代碼