共用方式為

CanvasShapes.AddPicture 方法 (Word)

  • 發行項

將圖片新增至繪圖畫布中。 會傳回 Shape 物件，代表圖片並將其新增至 CanvasShapes 集合。

語法

expression。 AddPicture( _FileName_ , _LinkToFile_ , _SaveWithDocument_ , _Left_ , _Top_ , _Width_ , _Height_ )

需要 expression。 代表 CanvasShapes 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
FileName 必要 String 圖片的路徑及檔案名稱。
LinkToFile 選用 Variant True 是表示 將圖片連結到已建立的檔案。 False 將圖片建立成獨立的檔案複本。 預設值為 False 。
SaveWithDocument 選用 Variant True 是表示 將連結的圖片儲存與文件。 預設值為 False 。
Left 選用 Variant 相對於繪圖畫布的新圖片之左邊界的位置 (以點為測量單位)。
Top 選用 Variant 相對於繪圖畫布的新圖片之上邊界的位置 (以點為測量單位)。
Width 選用 Variant 圖片的寬度 (以點為單位)。
Height 選用 Variant 圖片的高度 (以點為單位)。

範例

本範例會將圖片新增至使用中文件新建立的繪圖畫布中。

Sub NewCanvasPicture() 
 Dim shpCanvas As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=200, Height:=300) 
 
 'Add a graphic to the drawing canvas 
 shpCanvas.CanvasItems.AddPicture _ 
 FileName:="C:\Program Files\Microsoft Office\" & _ 
 "Office\Bitmaps\Styles\stone.bmp", _ 
 LinkToFile:=False, SaveWithDocument:=True 
End Sub

另請參閱

CanvasShapes 集合

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。