Klasse Shape (Word VBA)

Die Klasse Shape stellt ein Objekt in der Zeichnungsebene dar, z. B. eine AutoForm, eine Freihandform, ein OLE-Objekt, ein ActiveX-Steuerelement oder eine Grafik.

Die wichtigste Prozeduren der Klasse Shape sind CanvasShapes.AddCallout, CanvasShapes.AddConnector, CanvasShapes.AddCurve, CanvasShapes.AddLabel, CanvasShapes.AddLine, CanvasShapes.AddPicture, CanvasShapes.AddPolyline, CanvasShapes.AddShape, CanvasShapes.AddTextbox, CanvasShapes.AddTextEffect, Delete, Select, ShapeRange.Delete, ShapeRange.Select, Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddCanvas, Shapes.AddChart2, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEControl, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox, Shapes.AddTextEffect und Shapes.AddWebVideo

Set

Um eine Shape -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim shp as Shape
Set shp = ActiveDocument.Background

Die folgenden Prozeduren können zum Festlegen der Shape Klassenvariablen verwendet werden : CanvasItems, ShapeRange.CanvasItems, InlineShape.GroupItems, GroupItems, ShapeRange.GroupItems, CanvasShapes.Item, CanvasShapes.AddCallout, CanvasShapes.AddConnector, CanvasShapes.AddCurve, CanvasShapes.AddLabel, CanvasShapes.AddLine, CanvasShapes.AddPicture, CanvasShapes.AddPolyline, CanvasShapes.AddShape, CanvasShapes.AddTextbox, CanvasShapes.AddTextEffect, Document.Background, FreeformBuilder.ConvertToShape, GroupShapes.Item, Hyperlink.Shape, InlineShape.ConvertToShape, Duplicate, ParentGroup, ShapeRange.Item, ShapeRange.ParentGroup, ShapeRange.Group, Shapes.Item, Shapes.AddCallout, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddTextbox, Shapes.AddTextEffect, Shapes.Add3DModel, Shapes.AddChart2, Shapes.AddOLEControl, Shapes.AddOLEObject, Shapes.AddSmartArt, Shapes.AddWebVideo, Shapes.AddCanvas, TextFrame.Parent, Window.RangeFromPoint, CanvasShapes.Range, GroupShapes.Range, Range.ShapeRange, Selection.ShapeRange, Selection.ChildShapeRange, Ungroup, ShapeRange.Ungroup, ShapeRange.Duplicate, Shapes.Range, Chart.Shapes, Document.Shapes und HeaderFooter.Shapes

For Each

Hier ist ein Beispiel für die Verarbeitung der Shape -Elemente in einer Sammlung

Dim shpCanvasItem As Shape
For Each shpCanvasItem In CanvasItems
	
Next shpCanvasItem

Themas

Einige Prozeduren in dieser Klasse wurden in Themen zusammengefasst und auf separaten Themenseiten beschrieben

Add with its procedures CanvasShapes.AddCallout, CanvasShapes.AddConnector, CanvasShapes.AddCurve, CanvasShapes.AddLabel, CanvasShapes.AddLine, CanvasShapes.AddPicture, CanvasShapes.AddPolyline, CanvasShapes.AddShape, CanvasShapes.AddTextbox, CanvasShapes.AddTextEffect, Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddCanvas, Shapes.AddChart2, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEControl, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox, Shapes.AddTextEffect und Shapes.AddWebVideo
Format with its procedures BackgroundStyle, GraphicStyle, HeightRelative, LayoutInCell, LinkFormat, OLEFormat, ScaleHeight, ScaleWidth, ShapeStyle, Visible, WidthRelative, WrapFormat, ShapeRange.BackgroundStyle, ShapeRange.GraphicStyle, ShapeRange.HeightRelative, ShapeRange.LayoutInCell, ShapeRange.ScaleHeight, ShapeRange.ScaleWidth, ShapeRange.ShapeStyle, ShapeRange.Visible, ShapeRange.WidthRelative und ShapeRange.WrapFormat
Sort/Order with its procedures ZOrder, ZOrderPosition, ShapeRange.ZOrder und ShapeRange.ZOrderPosition

Methoden

Die Hauptmethoden der Klasse Shape sind

Delete - Löscht den angegebenen Formknoten.

ActiveDocument.Background.Delete

Select - Markiert die angegebene Form.

ActiveDocument.Background.Select

ShapeRange.Delete - Löscht den angegebenen Formbereich.

Dim sre As ShapeRange: Set sre =  
sre.Delete

ShapeRange.Select - Markiert den angegebenen Formbereich.

Dim sre As ShapeRange: Set sre =  
sre.Select

Andere Methoden

CanvasShapes.BuildFreeform - Erstellt ein Freihandform-Objekt.

Dim fbrBuildFreeform As FreeformBuilder
Set fbrBuildFreeform = ActiveDocument.Background.CanvasItems.BuildFreeform(EditingType:=msoEditingAuto, X1:=, Y1:=)

ShapeRange.Align - Richtet die Formen im angegebenen Formenbereich aus.

Dim lngRelativeTo As Long: lngRelativeTo = 
Dim sre As ShapeRange: Set sre =  
sre.Align Align:=msoAlignLefts, RelativeTo:=lngRelativeTo

ShapeRange.Distribute - Verteilt die Formen im angegebenen Formenbereich gleichmäßig.

Dim lngRelativeTo As Long: lngRelativeTo = 
Dim sre As ShapeRange: Set sre =  
sre.Distribute Distribute:=msoDistributeHorizontally, RelativeTo:=lngRelativeTo

Shapes.BuildFreeform - Erstellt ein Freihandform-Objekt.

Dim fbrBuildFreeform As FreeformBuilder
Set fbrBuildFreeform = Selection.HeaderFooter.Shapes.BuildFreeform(EditingType:=msoEditingAuto, X1:=, Y1:=)

Eigenschaften

CanvasShapes.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl von Canvas-Formen in der angegebenen Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.Background.CanvasItems.Count

CanvasShapes.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen CanvasShapes-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Background.CanvasItems.Parent

GroupShapes.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Formen in der Auflistung darstellt.

Dim gss As GroupShapes: Set gss =  
Dim lngCount As Long
lngCount = gss.Count

GroupShapes.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen GroupShapes-Objekts darstellt.

Dim gss As GroupShapes: Set gss =  
Dim objParent As Object
Set objParent = gss.Parent

Adjustments Gibt ein Adjustments -Objekt zurück, das Anpassungswerte für alle Anpassungen des angegebenen Shape -Objekts enthält, das eine AutoForm oder ein WordArt-Objekt darstellt.

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = ActiveDocument.Background.Adjustments

AlternativeText Gibt den alternativen Text zurück, der einem Shape auf einer Webseite zugeordnet ist, oder legt diesen fest.

ActiveDocument.Background.AlternativeText =

Anchor Gibt ein Range -Objekt zurück, das den Verankerungsbereich für die angegebene Form oder den angegebenen Formenbereich darstellt.

Dim rngAnchor As Range
Set rngAnchor = ActiveDocument.Background.Anchor

AutoShapeType Gibt zurück oder legt den Typ der Form für das angegebene Shape -Objekt, das eine andere AutoForm als eine Linien-oder Freihandform-Zeichnung darstellen muss.

ActiveDocument.Background.AutoShapeType =

Callout Gibt ein CalloutFormat -Objekt zurück, das Legenden Formatierungseigenschaften für die angegebene Form enthält.

Dim cftCallout As CalloutFormat
Set cftCallout = ActiveDocument.Background.Callout

CanvasItems Gibt ein CanvasShapes -Objekt zurück, das eine Auflistung von Formen in einem Zeichenbereich darstellt.

Dim cssCanvasItems As CanvasShapes
Set cssCanvasItems = ActiveDocument.Background.CanvasItems

Chart Gibt ein Chart-Objekt zurück, das ein Diagramm in der Auflistung von Formen in einem Dokument darstellt.

Dim chrChart As Chart
Set chrChart = ActiveDocument.Background.Chart

Child MsoTrue, wenn die Form eine untergeordnete Form ist, oder wenn alle Formen in einem Formenbereich untergeordnete Formen derselben übergeordneten Form sind.

Dim mtsChild As Office.MsoTriState
mtsChild = ActiveDocument.Background.Child

Decorative Legt das dekorative Flag für das angegebene Objekt fest oder gibt es zurück.

ActiveDocument.Background.Decorative =

Fill Gibt ein FillFormat -Objekt zurück, das Füll Formatierungseigenschaften für die angegebene Form enthält.

Dim fftFill As FillFormat
Set fftFill = ActiveDocument.Background.Fill

Glow Gibt ein GlowFormat -Objekt zurück, das die Glüh Formatierung für ein Shape darstellt.

Dim gftGlow As GlowFormat
Set gftGlow = ActiveDocument.Background.Glow

GroupItems Gibt ein GroupShapes -Objekt zurück, das die einzelnen Formen in der angegebenen Gruppe darstellt.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActiveDocument.Background.GroupItems

HasChart True, wenn die angegebene Form ein Diagramm aufweist.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveDocument.Background.HasChart

HasSmartArt Gibt true zurück, wenn ein SmartArt-Diagramm in der Form vorhanden ist.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = ActiveDocument.Background.HasSmartArt

Height Gibt die Höhe (in Punkt) der angegebenen Form zurück oder legt Sie fest.

ActiveDocument.Background.Height =

HorizontalFlip Gibt an, dass eine Form horizontal gekippt wurde.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = ActiveDocument.Background.HorizontalFlip

Hyperlink Gibt ein Hyperlink -Objekt zurück, das den Hyperlink darstellt, der einem Shape -Objekt zugeordnet ist.

Dim hypHyperlink As Hyperlink
Set hypHyperlink = ActiveDocument.Background.Hyperlink

ID Gibt den Identifikationsstyp für die angegebene Form zurück.

Dim lngID As Long
lngID = ActiveDocument.Background.ID

Left Gibt einen Single -Wert zurück, der die horizontale Position der angegebenen Form oder des angegebenen Formbereichs in Punkt darstellt, oder legt diesen fest.

ActiveDocument.Background.Left =

LeftRelative Gibt einen Wert vom Typ Single zurück, der die relative linke Position einer Form darstellt, oder legt diesen Wert fest.

ActiveDocument.Background.LeftRelative =

Line Gibt ein LineFormat -Objekt zurück, das Linienformatierungseigenschaften für die angegebene Form enthält.

Dim lftLine As LineFormat
Set lftLine = ActiveDocument.Background.Line

LockAnchor True, wenn die Verankerung eines Shape-Objekts im Verankerungsbereich gesperrt ist.

ActiveDocument.Background.LockAnchor =

LockAspectRatio MsoTrue, wenn die angegebene Form beim Ändern ihrer Größe die ursprünglichen Proportionen beibehält.

ActiveDocument.Background.LockAspectRatio =

Model3D Gibt ein Model3DFormat -Objekt zurück, das Model3D-Eigenschaften enthält.

Dim mdfModel3D As Model3DFormat
Set mdfModel3D = ActiveDocument.Background.Model3D

Name Gibt den Namen des angegebenen Objekts zurück oder legt ihn fest.

ActiveDocument.Background.Name =

Nodes Gibt eine ShapeNodes -Auflistung zurück, die die geometrische Beschreibung der angegebenen Form darstellt.

Dim snsNodes As ShapeNodes
Set snsNodes = ActiveDocument.Background.Nodes

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Shape-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Background.Parent

ParentGroup Gibt ein Shape -Objekt zurück, das die gemeinsame übergeordnete Form einer untergeordneten Form oder eines untergeordneten Shapes darstellt.

Dim shpParentGroup As Shape
Set shpParentGroup = ActiveDocument.Background.ParentGroup

PictureFormat Gibt ein PictureFormat -Objekt zurück, das Bild Formatierungseigenschaften für das angegebene Objekt enthält.

Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = ActiveDocument.Background.PictureFormat

Reflection Gibt ein ReflectionFormat -Objekt zurück, das die Spiegelungs Formatierung für ein Shape darstellt.

Dim rftReflection As ReflectionFormat
Set rftReflection = ActiveDocument.Background.Reflection

RelativeHorizontalPosition Gibt die relative horizontale Position einer Form an.

ActiveDocument.Background.RelativeHorizontalPosition = wdRelativeHorizontalPositionCharacter

RelativeHorizontalSize Zurückgeben oder festlegen eine WdRelativeVerticalSize -Konstanten, die das Objekt darstellt, in dem ein Bereich von Formen relativ ist.

ActiveDocument.Background.RelativeHorizontalSize = wdRelativeHorizontalSizeInnerMarginArea

RelativeVerticalPosition Gibt die relative vertikale Position einer Form an.

ActiveDocument.Background.RelativeVerticalPosition = wdRelativeVerticalPositionBottomMarginArea

RelativeVerticalSize Zurückgeben oder festlegen eine WdRelativeVerticalSize -Konstanten, die die relative vertikale Größe eines Shapes darstellt.

ActiveDocument.Background.RelativeVerticalSize = wdRelativeVerticalSizeBottomMarginArea

Rotation Gibt die Gradzahl zurück, um die die angegebene Form um die z-Achse gedreht wird, oder legt diese Gradzahl fest.

ActiveDocument.Background.Rotation =

Script Gibt ein Script -Objekt zurück, das einen Block von Skript oder Code für ein Bild auf einer Webseite darstellt.

Dim scrScript As Office.Script
scrScript = ActiveDocument.Background.Script

Shadow Gibt ein ShadowFormat -Objekt zurück, das die Schattenformatierung für die angegebene Form darstellt.

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveDocument.Background.Shadow

SmartArt Gibt ein SmartArt -Objekt zurück, das eine Möglichkeit zum Arbeiten mit der dem angegebenen Shape zugeordneten SmartArt bietet.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = ActiveDocument.Background.SmartArt

SoftEdge Gibt ein SoftEdgeFormat -Objekt zurück, das die Formatierung der weichen Kante für ein Shape darstellt.

Dim sefSoftEdge As SoftEdgeFormat
Set sefSoftEdge = ActiveDocument.Background.SoftEdge

TextEffect Gibt ein TextEffectFormat -Objekt zurück, das Texteffekt-Formatierungseigenschaften für die angegebene Form enthält.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = ActiveDocument.Background.TextEffect

TextFrame Gibt ein TextFrame -Objekt zurück, das den Text für die angegebene Form enthält.

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = ActiveDocument.Background.TextFrame

TextFrame2 Gibt ein TextFrame2 -Objekt zurück, das den Text für die angegebene Form enthält.

Dim tf2TextFrame2 As Office.TextFrame2
Set tf2TextFrame2 = ActiveDocument.Background.TextFrame2

ThreeD Gibt ein ThreeDFormat -Objekt zurück, das 3D-Formatierungseigenschaften für die angegebene Form enthält.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActiveDocument.Background.ThreeD

Title Zurückgeben oder Festlegen einer Zeichenfolge , die einen Titel für die angegebene Form enthält.

ActiveDocument.Background.Title =

Top Gibt die vertikale Position der angegebenen Form oder des Formbereichs in Punkt zurück oder legt Sie fest.

ActiveDocument.Background.Top =

TopRelative Gibt einen Wert vom Typ Single zurück, der die relative obere Position einer Form darstellt, oder legt diesen Wert fest.

ActiveDocument.Background.TopRelative =

Type Gibt den Typ der Inlineform zurück.

Dim mstType As Office.MsoShapeType
mstType = ActiveDocument.Background.Type

VerticalFlip True, wenn die angegebene Form um die vertikale Achse gedreht wurde.

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = ActiveDocument.Background.VerticalFlip

Vertices Gibt die Koordinaten der Scheitelpunkte der angegebenen Freihandform (und der Kontrollpunkte für Bézierkurven) als Folge von Koordinatenpaaren zurück.

Dim varVertices As Variant
varVertices = ActiveDocument.Background.Vertices

Width Gibt die Breite der angegebenen Form in Punktzurück oder legt Sie fest.

ActiveDocument.Background.Width =

ShapeRange.Adjustments Gibt ein Adjustments -Objekt zurück, das Anpassungswerte für alle Anpassungen des angegebenen ShapeRange -Objekts enthält, das eine AutoForm oder ein WordArt-Objekt darstellt.

Dim sre As ShapeRange: Set sre =  
Dim adjsAdjustments As Adjustments
Set adjsAdjustments = sre.Adjustments

ShapeRange.AlternativeText Gibt den alternativen Text zurück, der einem Shape auf einer Webseite zugeordnet ist, oder legt diesen fest.

Dim sre As ShapeRange: Set sre =  
sre.AlternativeText =

ShapeRange.Anchor Gibt ein Range -Objekt zurück, das den Verankerungsbereich für den angegebenen Formenbereich darstellt.

Dim sre As ShapeRange: Set sre =  
Dim rngAnchor As Range
Set rngAnchor = sre.Anchor

ShapeRange.AutoShapeType Gibt zurück oder legt den Typ der Form für das angegebene ShapeRange -Objekt, das eine andere AutoForm als eine Linien-oder Freihandform-Zeichnung darstellen muss.

Dim sre As ShapeRange: Set sre =  
sre.AutoShapeType =

ShapeRange.Callout Gibt ein CalloutFormat -Objekt zurück, das Legenden Formatierungseigenschaften für die angegebene Form enthält.

Dim sre As ShapeRange: Set sre =  
Dim cftCallout As CalloutFormat
Set cftCallout = sre.Callout

ShapeRange.CanvasItems Gibt ein CanvasShapes -Objekt zurück, das eine Auflistung von Formen in einem Zeichenbereich darstellt.

Dim sre As ShapeRange: Set sre =  
Dim cssCanvasItems As CanvasShapes
Set cssCanvasItems = sre.CanvasItems

ShapeRange.Child MsoTrue, wenn die Form eine untergeordnete Form ist, oder wenn alle Formen in einem Formenbereich untergeordnete Formen derselben übergeordneten Form sind.

Dim sre As ShapeRange: Set sre =  
Dim mtsChild As Office.MsoTriState
mtsChild = sre.Child

ShapeRange.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Formen in der Auflistung darstellt.

Dim sre As ShapeRange: Set sre =  
Dim lngCount As Long
lngCount = sre.Count

ShapeRange.Decorative Legt das dekorative Flag für das angegebene Objekt fest oder gibt es zurück.

Dim sre As ShapeRange: Set sre =  
sre.Decorative =

ShapeRange.Fill Gibt ein FillFormat -Objekt zurück, das Füll Formatierungseigenschaften für die angegebene Form enthält.

Dim sre As ShapeRange: Set sre =  
Dim fftFill As FillFormat
Set fftFill = sre.Fill

ShapeRange.Glow Gibt ein GlowFormat -Objekt zurück, das die Glüh Formatierung für einen Formentyp darstellt.

Dim sre As ShapeRange: Set sre =  
Dim gftGlow As GlowFormat
Set gftGlow = sre.Glow

ShapeRange.GroupItems Gibt ein GroupShapes -Objekt zurück, das die einzelnen Formen in der angegebenen Gruppe darstellt.

Dim sre As ShapeRange: Set sre =  
Dim gssGroupItems As GroupShapes
Set gssGroupItems = sre.GroupItems

ShapeRange.Height Gibt die Höhe des angegebenen Formbereichs zurück oder legt die Höhe fest.

Dim sre As ShapeRange: Set sre =  
sre.Height =

ShapeRange.HorizontalFlip Gibt an, dass ein Bereich von Formen horizontal gekippt wurde.

Dim sre As ShapeRange: Set sre =  
Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = sre.HorizontalFlip

ShapeRange.Hyperlink Gibt ein Hyperlink -Objekt zurück, das den Hyperlink darstellt, der dem angegebenen ShapeRange -Objekt zugeordnet ist.

Dim sre As ShapeRange: Set sre =  
Dim hypHyperlink As Hyperlink
Set hypHyperlink = sre.Hyperlink

ShapeRange.ID Gibt den Identifikationstyp für den Formenbereich zurück.

Dim sre As ShapeRange: Set sre =  
Dim lngID As Long
lngID = sre.ID

ShapeRange.Left Gibt einen Single -Wert zurück, der die horizontale Position des angegebenen Bereichs von Formen in Punkt darstellt, oder legt diesen fest.

Dim sre As ShapeRange: Set sre =  
sre.Left =

ShapeRange.LeftRelative Gibt einen Wert vom Typ Single zurück, der die relative linke Position eines Bereichs von Formen darstellt, oder legt diesen Wert fest.

Dim sre As ShapeRange: Set sre =  
sre.LeftRelative =

ShapeRange.Line Gibt ein LineFormat -Objekt zurück, das Linienformatierungseigenschaften für den angegebenen Bereich von Formen enthält.

Dim sre As ShapeRange: Set sre =  
Dim lftLine As LineFormat
Set lftLine = sre.Line

ShapeRange.LockAnchor True, wenn die Verankerung des angegebenen ShapeRange-Objekts im Verankerungsbereich gesperrt ist.

Dim sre As ShapeRange: Set sre =  
sre.LockAnchor =

ShapeRange.LockAspectRatio MsoTrue, wenn die angegebene Form beim Ändern ihrer Größe die ursprünglichen Proportionen beibehält.

Dim sre As ShapeRange: Set sre =  
sre.LockAspectRatio =

ShapeRange.Model3D Gibt ein Model3DFormat -Objekt zurück, das Model3D-Eigenschaften enthält.

Dim sre As ShapeRange: Set sre =  
Dim mdfModel3D As Model3DFormat
Set mdfModel3D = sre.Model3D

ShapeRange.Name Gibt den Namen des angegebenen Objekts zurück oder legt ihn fest.

Dim sre As ShapeRange: Set sre =  
sre.Name =

ShapeRange.Nodes Gibt eine ShapeNodes -Auflistung zurück, die die geometrische Beschreibung der angegebenen Form darstellt.

Dim sre As ShapeRange: Set sre =  
Dim snsNodes As ShapeNodes
Set snsNodes = sre.Nodes

ShapeRange.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ShapeRange-Objekts darstellt.

Dim sre As ShapeRange: Set sre =  
Dim objParent As Object
Set objParent = sre.Parent

ShapeRange.ParentGroup Gibt ein Shape -Objekt zurück, das die gemeinsame übergeordnete Form eines Formenbereichs darstellt.

Dim sre As ShapeRange: Set sre =  
Dim shpParentGroup As Shape
Set shpParentGroup = sre.ParentGroup

ShapeRange.PictureFormat Gibt ein PictureFormat -Objekt zurück, das Bild Formatierungseigenschaften für den angegebenen Formentyp enthält.

Dim sre As ShapeRange: Set sre =  
Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = sre.PictureFormat

ShapeRange.Reflection Gibt ein ReflectionFormat -Objekt zurück, das die Spiegelungs Formatierung für einen Formentyp darstellt.

Dim sre As ShapeRange: Set sre =  
Dim rftReflection As ReflectionFormat
Set rftReflection = sre.Reflection

ShapeRange.RelativeHorizontalPosition Gibt die relative horizontale Position eines Formenbereichs an.

Dim sre As ShapeRange: Set sre =  
sre.RelativeHorizontalPosition = wdRelativeHorizontalPositionCharacter

ShapeRange.RelativeHorizontalSize Zurückgeben oder festlegen eine WdRelativeHorizontalSize -Konstanten, die das Objekt darstellt, in dem ein Bereich von Formen relativ ist.

Dim sre As ShapeRange: Set sre =  
sre.RelativeHorizontalSize = wdRelativeHorizontalSizeInnerMarginArea

ShapeRange.RelativeVerticalPosition Gibt die relative vertikale Position eines Formenbereichs an.

Dim sre As ShapeRange: Set sre =  
sre.RelativeVerticalPosition = wdRelativeVerticalPositionBottomMarginArea

ShapeRange.RelativeVerticalSize Zurückgeben oder festlegen eine WdRelativeVerticalSize -Konstanten, die das Objekt darstellt, in dem ein Bereich von Formen relativ ist.

Dim sre As ShapeRange: Set sre =  
sre.RelativeVerticalSize = wdRelativeVerticalSizeBottomMarginArea

ShapeRange.Rotation Gibt die Gradzahl zurück, um die die angegebene Form um die Z-Achse gedreht wird, oder legt diese Gradzahl fest.

Dim sre As ShapeRange: Set sre =  
sre.Rotation =

ShapeRange.Shadow Gibt ein ShadowFormat -Objekt zurück, das die Schattenformatierung für die angegebene Form darstellt.

Dim sre As ShapeRange: Set sre =  
Dim sftShadow As ShadowFormat
Set sftShadow = sre.Shadow

ShapeRange.SoftEdge Gibt ein SoftEdgeFormat -Objekt zurück, das die Formatierung für weiche Kanten für einen Formenbereich darstellt.

Dim sre As ShapeRange: Set sre =  
Dim sefSoftEdge As SoftEdgeFormat
Set sefSoftEdge = sre.SoftEdge

ShapeRange.TextEffect Gibt ein TextEffectFormat -Objekt zurück, das Texteffekt-Formatierungseigenschaften für die angegebene Form enthält.

Dim sre As ShapeRange: Set sre =  
Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = sre.TextEffect

ShapeRange.TextFrame Gibt ein TextFrame -Objekt zurück, das den Text für den angegebenen Bereich von Formen enthält.

Dim sre As ShapeRange: Set sre =  
Dim tfeTextFrame As TextFrame
Set tfeTextFrame = sre.TextFrame

ShapeRange.TextFrame2 Gibt ein TextFrame2 -Objekt zurück, das den Text für den angegebenen Formentyp enthält.

Dim sre As ShapeRange: Set sre =  
Dim tf2TextFrame2 As Office.TextFrame2
Set tf2TextFrame2 = sre.TextFrame2

ShapeRange.ThreeD Gibt ein ThreeDFormat -Objekt zurück, das 3D-Formatierungseigenschaften für den angegebenen Formentyp enthält.

Dim sre As ShapeRange: Set sre =  
Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = sre.ThreeD

ShapeRange.Title Zurückgeben oder Festlegen einer Zeichenfolge , die einen Titel für die Formen im angegebenen Formenbereich enthält.

Dim sre As ShapeRange: Set sre =  
sre.Title =

ShapeRange.Top Gibt die vertikale Position der angegebenen Form oder des Formbereichs in Punkt zurück oder legt Sie fest.

Dim sre As ShapeRange: Set sre =  
sre.Top =

ShapeRange.TopRelative Gibt einen Wert vom Typ Single zurück, der die relative obere Position eines Bereichs von Formen darstellt, oder legt diesen Wert fest.

Dim sre As ShapeRange: Set sre =  
sre.TopRelative =

ShapeRange.Type Gibt den Typ der Form zurück.

Dim sre As ShapeRange: Set sre =  
Dim mstType As Office.MsoShapeType
mstType = sre.Type

ShapeRange.VerticalFlip True, wenn die angegebene Form um die vertikale Achse gedreht wurde.

Dim sre As ShapeRange: Set sre =  
Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = sre.VerticalFlip

ShapeRange.Vertices Gibt die Koordinaten der Scheitelpunkte der angegebenen Freihandform (und der Kontrollpunkte für Bézierkurven) als Folge von Koordinatenpaaren zurück.

Dim sre As ShapeRange: Set sre =  
Dim varVertices As Variant
varVertices = sre.Vertices

ShapeRange.Width Gibt die Breite der Formen innerhalb des Bereiches in Punktzurück oder legt Sie fest.

Dim sre As ShapeRange: Set sre =  
sre.Width =

Shapes.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Formen in der Auflistung darstellt.

Dim lngCount As Long
lngCount = Selection.HeaderFooter.Shapes.Count

Shapes.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Shapes-Objekts darstellt.

Dim objParent As Object
Set objParent = Selection.HeaderFooter.Shapes.Parent