Board logo

標題: 插入圖片vba問題 [打印本頁]
作者: basarasy    時間: 2010-6-4 22:26     標題: 插入圖片vba問題

如何在  a3插入圖片 D:\圖片2\144.JPG  再改寛度為10cm?  這個vba不會寫><
作者: Hsieh    時間: 2010-6-4 22:56

回復 1# basarasy
  1. Sub Ex()
  2. '1point=0.035cm
  3. Sheet1.Shapes.AddPicture "D:\圖片2\144.JPG", True, True, [A3].Left, [A3].Top, 10 / 0.035, 8 / 0.035 '寬10CM,高8CM
  4. End Sub
複製代碼
作者: wqfzqgk    時間: 2010-6-6 15:51

[attach]1158[/attach]
作者: basarasy    時間: 2010-6-28 15:51

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



    請問之個如何寫的?
作者: PD961A    時間: 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 開始 \ 結束
另存 路徑 檔名 就是動晝檔了
作者: basarasy    時間: 2010-6-28 17:42

回復 5# PD961A


    我是問他插入圖片的VBA如何寫.
作者: PD961A    時間: 2010-6-28 17:44

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

回復 6# basarasy


    下載就好啦..
而且HS版主程式碼也寫好了..
謝謝..
作者: basarasy    時間: 2010-6-28 19:14

回復 7# PD961A

權限不足,不能下載.
作者: basarasy    時間: 2010-6-28 22:58

請問有冇大大可以教我  3樓 wqfzqgk 大大的插入圖片方法?
我用的是2007 .
作者: JOYARK    時間: 2012-4-15 21:39

謝謝提供學習非常實用
作者: Hsieh    時間: 2012-4-15 23:22

  1. Sub InputPictures()
  2. Dim fs(), A As Range
  3. If ActiveSheet.Shapes.Count > 0 Then
  4. ActiveSheet.Shapes.SelectAll
  5. Selection.Delete
  6. End If
  7. On Error GoTo 10
  8. fs = Application.GetOpenFilename("所有圖片(*.jpg;*.png;*.tiff;*.bmp;*.gif),*.jpg;*.png;*.tiff;*.bmp;*.gif", , , , True)
  9. For i = 1 To UBound(fs)
  10. Set A = Cells(i, 1)
  11. A = fs(i)
  12. With 工作表1.Shapes.AddPicture(fs(i), True, True, A.Offset(, 1).Left, A.Top, A.Offset(, 1).Width, A.Offset(, 1).Height)
  13. .Placement = xlMoveAndSize
  14. End With
  15. Next
  16. 10
  17. End Sub
複製代碼
[attach]10452[/attach]
作者: apple99152    時間: 2015-4-30 13:42

謝謝Hsieh大分享, 非常受用



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)