彰化一整天的論壇

 找回密碼
 立即註冊
查看: 123|回復: 5

WORD 插入圖片

[複製鏈接]
發表於 2018-4-25 11:47:51 | 顯示全部樓層 |閱讀模式
請問每次開啟新檔案,插入圖片,希望已設置大小
不用每次插入要調整大小,有辦法嗎?
(((沒有表格的文件插入圖片))
回復

使用道具 舉報

發表於 2018-4-25 13:49:27 | 顯示全部樓層
您好,
     您可以使用巨集將所有的圖片修改大小,請參考
  1. Sub resize()
  2. Dim i As Long
  3. With ActiveDocument
  4.     For i = 1 To .InlineShapes.Count
  5.         With .InlineShapes(i)
  6.             .ScaleHeight = 50
  7.             .ScaleWidth = 50
  8.         End With
  9.     Next i
  10. End With
  11. End Sub
複製代碼
資料來源: https://superuser.com/questions/ ... -a-ms-word-document
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-4-25 14:37:54 | 顯示全部樓層
需要用巨集?
一個檔案只有一張圖片!
回復 支持 反對

使用道具 舉報

發表於 2018-4-25 15:34:29 | 顯示全部樓層
aibu0309 發表於 2018-4-25 14:37
需要用巨集?
一個檔案只有一張圖片!

您好,
     我在設定中找不到相關的,我想到只有用巨集來解決.您可以參考底下的程式碼做修改.
  1. Sub 巨集17()
  2. '
  3. ' 巨集17 巨集
  4. ' 巨集錄製於 2018/4/25,錄製者 tsaimh
  5. '
  6.     Documents.Add DocumentType:=wdNewBlankDocument
  7.     Selection.InlineShapes.AddPicture FileName:= _
  8.         "C:\tmh\我的文件\My Pictures\Image.jpg", LinkToFile:=False, SaveWithDocument _
  9.         :=True
  10.     ActiveDocument.InlineShapes(0).Height = 100 '單位pt
  11.     ActiveDocument.InlineShapes(0).Width = 100  '單位pt
  12. End Sub
複製代碼
若word插入後要改圖片.可以用

回復 支持 反對

使用道具 舉報

發表於 2018-4-25 15:34:29 | 顯示全部樓層
本帖最後由 imingho 於 2018-4-25 16:10 編輯


aibu0309 發表於 2018-4-25 14:37

您好,
     我在設定中找不到相關的,我想到只有用巨集來解決.您可以參考底下的程式碼做修改.
  1. Sub 巨集17()
  2. '
  3. ' 巨集17 巨集
  4. ' 巨集錄製於 2018/4/25,錄製者 tsaimh
  5. '
  6.     Documents.Add DocumentType:=wdNewBlankDocument
  7.     Selection.InlineShapes.AddPicture FileName:= _
  8.         "C:\tmh\我的文件\My Pictures\Image.jpg", LinkToFile:=False, SaveWithDocument _
  9.         :=True
  10.     ActiveDocument.InlineShapes(0).Height = 100 '單位pt
  11.     ActiveDocument.InlineShapes(0).Width = 100  '單位pt
  12. End Sub
複製代碼
若word插入後要改圖片.可以用

  1. Sub 巨集18()
  2.     ActiveDocument.InlineShapes(0).Height = 100 '單位pt
  3.     ActiveDocument.InlineShapes(0).Width = 100  '單位pt
  4. End Sub
複製代碼


回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-9-22 12:50 , Processed in 0.103265 second(s), 20 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表