在Word中，對表格外的圖片進行統一操作，如：改變大小，
但是不會改變到表格內的圖片，這個宏應該怎么寫呢?求指導
uj5u.com熱心網友回復：
請先上傳附件，然后說明想改哪塊。uj5u.com熱心網友回復：
整篇檔案都是類似于這種，要修改前面幾張表格外圖片的長和寬，同時表格里面的圖片不受影響。
不能上傳檔案，只能發圖片
uj5u.com熱心網友回復：
Shape 物件參閱屬性方法事件特性多個物件
Shape
多個物件
代表一個圖形層物件，例如自選圖形、任意多邊形、OLE 物件、ActiveX 控制元件、圖片等。Shape 物件是 Shapes 集合的一個成員，該集合包含了一篇檔案正文部分的所有圖形，或檔案頁眉和頁腳部分中的所有圖形。
一個圖形總是附屬于某一帶鎖定標記的區域。可將圖形放于鎖定標記所在的頁面的任何位置。
注釋 有三種物件可代表圖形：Shapes 集合代表了檔案中的所有圖形；ShapeRange 集合代表了檔案全部圖形的一個指定子集（例如，ShapeRange 物件可以代表檔案中的第一個和第四個圖形，也可代表檔案中所有選定的圖形）；Shape 物件代表檔案中的單個圖形。如果需要對幾個圖形（或選定部分中的多個圖形）同時進行操作，可以使用 ShapeRange 集合。
使用 Shape 物件
本節說明應如何：
根據名稱或編號回傳檔案中的一個原有圖形。
回傳所選部分中的一個或多個圖形。
回傳一個新創建的圖形。
回傳一組中的單個圖形。
回傳新近組合的一組圖形。
回傳檔案中的一個原有圖形
用 Shapes(index) 可回傳單獨的 Shape 物件，其中 index 為該物件的名稱或索引序號。下例水平翻轉活動檔案中的第一個圖形。
ActiveDocument.Shapes(1).Flip msoFlipHorizontal
下例水平翻轉活動檔案中名為“Rectangle 1”的圖形。
ActiveDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal
每個圖形在創建時都得到一個默認的名稱。如果向檔案中添加三個不同的圖形，它們將得到如“矩形 2”、“文本框 3”和“橢圓 4”之類的名稱。若要給圖形起一個更有意義的名稱，請設定其 Name 屬性。
回傳選定部分中的一個或多個圖形
用 Selection.ShapeRange(index) 可回傳一個 Shape 物件，該物件代表選定部分中的一個圖形，其中 index 為圖形名稱或索引序號。下例設定選定部分中第一個圖形的填充效果（假定在選定部分中至少有一個圖形）。
Selection.ShapeRange(1).Fill.ForeColor.RGB = RGB(255, 0, 0)
下例為選定部分中所有圖形設定填充效果（假定選定部分至少包含一個圖形）。
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
回傳一個新創建的圖形
如果要向指定檔案的圖形集合添加一個 Shape 物件，并回傳一個代表新創建的圖形 Shape 物件，請使用 Shapes 集合的下列方法之一：AddCallout、AddCurve、AddLabel、AddLine、AddOleControl、AddOleObject、AddPolyline、AddShape、AddTextbox、AddTextEffect 或 BuildFreeForm。下例將一個矩形添加到活動檔案。
ActiveDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200
回傳組合中的單個圖形
用 GroupItems(index) 可以回傳 Shape 物件，該物件代表組合中的單個圖形，其中 index 為圖形在該組中的名稱或索引序號。
回傳新近組合的一組圖形
用 Group 或 Regroup 方法可對某一區域的圖形加以組合，并回傳單獨的 Shape 物件，該物件代表該新組合。在一個組合形成之后，處理該組合的方式與處理其他圖形的方式相同。
鎖定和放置圖形
每個 Shape 物件都鎖定于某一區域的文本。一個圖形位置鎖定于包含鎖定標記的區域的第一段的開始處。該圖形總是與其鎖定標記處于同一頁上。
將 ShowObjectAnchors 屬性設定為 True，就可看到鎖定標記。該圖形的 Top 和 Left 屬性確定圖形的垂直和水平位置。該圖形的 RelativeHorizontalPosition 和 RelativeVerticalPosition 屬性確定圖形的定位依據：可以是鎖定標記所在的段落、包含該段落所在的欄、頁邊距或頁面邊緣。
如果圖形的 LockAnchor 屬性為 True，則不能在頁面上拖動鎖定標記。
設定圖形的格式
用 Fill 屬性可回傳一個 FillFormat 物件，該物件包含了設定封閉圖形填充效果所需的所有屬性和方法。用 Shadow 屬性可回傳 ShadowFormat 物件，該物件可用來設定陰影。用 Line 屬性可回傳 LineFormat 物件，該物件包含了設定線條和箭頭效果所需的各種屬性和方法。用 TextEffect 屬性可回傳 TextEffectFormat 物件，該物件可用來設定“藝術字”的格式。用 Callout 屬性可回傳 CalloutFormat 物件，該物件可用來設定線型標注的格式。用 WrapFormat 屬性可回傳 WrapFormat 物件，該物件可用來定義文字環繞圖形的方式。用 ThreeD 屬性可回傳 ThreeDFormat 物件，該物件可用來創建三維圖形。用 PickUp 和 Apply 方法可將一個圖形的格式傳遞給（即應用于）另一個圖形。
用 Shape 物件的 SetShapesDefaultProperties 方法可設定檔案的默認圖形格式。新的圖形可繼承默認圖形的多種屬性。
圖形的其他重要屬性
用 Type 屬性可指定圖形的型別，例如任意多邊形、自選圖形、OLE 物件、標注或鏈接圖片。用 AutoShapeType 屬性可以指定自選圖形的型別，例如橢圓、矩形或氣球形。
用 Width 和 Height 屬性可指定圖形尺寸。
TextFrame 屬性回傳 TextFrame 物件，該物件包含了將文本附加于圖形以及鏈接文本框之間的文本所需的所有屬性和方法。
說明
盡管 Shape 物件的位置鎖定于一定文本區域，但該物件可自由浮移，并可置于頁面的任何位置。InlineShape 物件被視為字符，并可象字符一樣置于一行文本中。ConvertToInlineShape 方法和 ConvertToShape 方法可用來轉換圖形的型別。只能將圖片、OLE 物件和 ActiveX 控制元件轉換為嵌入式圖形。
uj5u.com熱心網友回復：
在Word中，按F11，F1，通讀VBA for Word聯機幫助中Shape物件相關內容。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/48520.html
標籤：VB基礎類