Shape-Objekt (Herausgeber)Shape object (Publisher)

Stellt ein Objekt in der Zeichnungsebene, wie beispielsweise eine AutoForm, Freihandform, OLE-Objekt, ActiveX-Steuerelement oder Bild.Represents an object in the drawing layer, such as an AutoShape, freeform, OLE object, ActiveX control, or picture. Das Shape -Objekt ist ein Element der Shapes -Auflistung, die alle Formen auf einer Seite oder in einer Auswahl enthält.The Shape object is a member of the Shapes collection, which includes all the shapes on a page or in a selection.

Hinweis Es gibt drei Objekte, die Formen darstellen: die Shapes -Auflistung, die alle Formen in einem Dokument darstellt. die ShapeRange -Auflistung, die eine angegebene Teilmenge der Formen in einem Dokument darstellt (beispielsweise kann ein ShapeRange -Objekt die Formen 1 und 4 im Dokument darstellen oder alle ausgewählten Formen im Dokument darstellen); Das Shape -Objekt, das eine einzelne Form in einem Dokument darstellt.Note There are three objects that represent shapes: the Shapes collection, which represents all the shapes on a document; the ShapeRange collection, which represents a specified subset of the shapes on a document (for example, a ShapeRange object could represent shapes one and four on the document, or it could represent all the selected shapes on the document); the Shape object, which represents a single shape on a document. Wenn Sie gleichzeitig mit mehreren Formen oder mit Formen in der Auswahl arbeiten, verwenden Sie eine ShapeRange-Sammlung.If you want to work with several shape at the same time or with shapes within the selection, use a ShapeRange collection. Dieser Abschnitt wird beschrieben, wie Sie:This section describes how to:

  • Zurückgeben einer vorhandenen Form in einem DokumentReturn an existing shape on a document.

  • Zurückgeben einer oder mehrerer Formen innerhalb einer AuswahlReturn a shape or shapes within a selection.

  • Zurückgeben einer neu erstellten FormReturn a newly created shape.

  • Arbeiten mit einer Gruppe von FormenWork with a group of shapes.

  • Formatieren einer FormFormat a shape.

  • Verwenden anderer wichtiger FormeigenschaftenUse other important shape properties.

BeispielExample

Verwenden Sie Shapes (Index), wobei Index der Name oder die Indexnummer ist, um ein einzelnes Shape -Objekt zurückzugeben.Use Shapes (index), where index is the name or the index number, to return a single Shape object. Das folgende Beispiel kippt die Form 1 im aktiven Dokument horizontal.The following example horizontally flips shape one on the active document.

Sub FlipShape() 
    ActiveDocument.Pages(1).Shapes(1).Flip FlipCmd:=msoFlipHorizontal 
End Sub

Im folgenden Beispiel wird die Form Rectangle 1 im aktiven Dokument horizontal gekippt.The following example horizontally flips the shape named "Rectangle 1" on the active document.

Sub FlipShapeByName() 
    ActiveDocument.Pages(1).Shapes("Rectangle 1") _ 
        .Flip FlipCmd:=msoFlipHorizontal 
End Sub

Jedes Shape erhält einen Standardnamen erstellt wird.Each shape is assigned a default name when it is created. Angenommen, wenn Sie drei verschiedene Formen zu einem Dokument hinzufügen, sie möglicherweise werden mit dem Namen "Rechteck 2", "Textfeld 3" und "Oval 4".For example, if you add three different shapes to a document, they might be named "Rectangle 2," "TextBox 3," and "Oval 4." Legen Sie die Name -Eigenschaft der Form fest, um einer Form einen aussagekräftigeren Namen zu geben.To give a shape a more meaningful name, set the Name property of the shape.

Verwenden Sie Selection. ShapeRange (Index), wobei Index der Name oder die Indexnummer ist, um ein Shape -Objekt zurückzugeben, das eine Form innerhalb einer Auswahl darstellt.Use Selection.ShapeRange (index), where index is the name or the index number, to return a Shape object that represents a shape within a selection. Das folgende Beispiel legt die Füllung für die erste Form in der Auswahl, vorausgesetzt, dass die Auswahl mindestens eine Form enthält.The following example sets the fill for the first shape in the selection, assuming that the selection contains at least one shape.

Sub FillSelectedShape() 
    Selection.ShapeRange(1).Fill.ForeColor.RGB = RGB(255, 0, 0) 
End Sub

Im folgenden Beispiel wird die Füllung für alle Formen in der Auswahl festgelegt. Voraussetzung dafür ist, dass sich in der Auswahl mindestens eine Form befindet.The following example sets the fill for all the shapes in the selection, assuming that the selection contains at least one shape.

Sub FillAllSelectedShapes() 
    Dim shpShape As Shape 
    For Each
shpShape In Selection.ShapeRange 
       
shpShape.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
    Next shpShape 
End Sub

Wenn Sie der Auflistung von Formen für das angegebene Dokument ein Shape -Objekt hinzufügen und ein Shape -Objekt zurückgeben möchten, das die neu erstellte Form darstellt, verwenden Sie eine der folgenden Methoden der Shapes -Auflistung: addcalling, AddConnector, AddCurve, AddLabel, addZeile, AddPolygon, addpolylinie, AddShape, AddTextBox oder AddTextEffect. To add a Shape object to the collection of shapes for the specified document and return a Shape object that represents the newly created shape, use one of the following methods of the Shapes collection: AddCallout, AddConnector, AddCurve, AddLabel, AddLine, AddOLEObject, AddPolyline, AddShape, AddTextBox or AddTextEffect. Im folgenden Beispiel wird das aktive Dokument ein Rechteck hinzugefügt.The following example adds a rectangle to the active document.

Sub AddNewShape() 
    ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeRectangle, _ 
        Left:=400, Top:=72, Width:=100, Height:=200 
End Sub

Verwenden Sie GroupItems (Index), wobei Index der Shape-Name oder die Indexnummer innerhalb der Gruppe ist, um ein Shape -Objekt zurückzugeben, das eine einzelne Form in einer gruppierten Form darstellt.Use GroupItems (index), where index is the shape name or the index number within the group, to return a Shape object that represents a single shape in a grouped shape. Verwenden Sie die Gruppe oder Regroup -Methode einen Bereich von Formen gruppieren und zurückgeben ein einzelnes Shape -Objekt, das die neu gebildete Gruppe darstellt.Use the Group or Regroup method to group a range of shapes and return a single Shape object that represents the newly formed group. Nach dem bilden einer Gruppe können Sie arbeiten mit der Gruppe der gleichen Weise wie Arbeit mit einem anderen Shape.After a group has been formed, you can work with the group the same way you work with any other shape. Dieses Beispiel fügt drei Formen zu der aktiven Publikation, gruppiert die Formen und legt die Füllfarbe für jede der Formen in der GruppeThis example adds three shapes to the active publication, groups the shapes, and sets the fill color for each of the shapes in the group

Sub WorkWithGroupShapes() 
 
    With ActiveDocument.Pages(1).Shapes 
        .AddShape Type:=msoShapeIsoscelesTriangle, Left:=100, _ 
            Top:=72, Width:=100, Height:=100 
        .AddShape Type:=msoShapeIsoscelesTriangle, Left:=250, _ 
            Top:=72, Width:=100, Height:=100 
        .AddShape Type:=msoShapeIsoscelesTriangle, Left:=400, _ 
            Top:=72, Width:=100, Height:=100 
        .SelectAll 
 
        With Selection.ShapeRange 
            .Group 
            .GroupItems(1).Fill.ForeColor _ 
                .RGB = RGB(Red:=255, Green:=0, Blue:=0) 
            .GroupItems(2).Fill.ForeColor _ 
                .RGB = RGB(Red:=0, Green:=255, Blue:=0) 
            .GroupItems(3).Fill.ForeColor _ 
                .RGB = RGB(Red:=0, Green:=0, Blue:=255) 
        End With 
    End With 
End Sub

Verwenden Sie die Fill -Eigenschaft, um das FillFormat -Objekt zurückzugeben, das alle Eigenschaften und Methoden zum Formatieren der Füllung einer geschlossenen Form enthält.Use the Fill property to return the FillFormat object, which contains all the properties and methods for formatting the fill of a closed shape. Die Shadow -Eigenschaft gibt das ShadowFormat -Objekt, das Sie zum Formatieren eines Schattens verwenden.The Shadow property returns the ShadowFormat object, which you use to format a shadow. Verwenden Sie die Line -Eigenschaft um ein LineFormat -Objekt zurückzugeben, die Eigenschaften und Methoden zum Formatieren von Linien und Pfeilen enthält.Use the Line property to return a LineFormat object, which contains properties and methods for formatting lines and arrows. Die TextEffect -Eigenschaft gibt das TextEffectFormat -Objekt, das Sie zum Formatieren von WordArt verwenden.The TextEffect property returns the TextEffectFormat object, which you use to format WordArt. Die Callout -Eigenschaft gibt das CalloutFormat -Objekt, das Sie zum Formatieren von Legenden mit Linie verwenden.The Callout property returns the CalloutFormat object, which you use to format line callouts. TextWrap -Eigenschaft gibt WrapFormat -Objekts, definieren Sie wie Text um Formen umbrochen wird.The TextWrap property returns the WrapFormat object, which you use to define how text wraps around shapes. Die ThreeD -Eigenschaft gibt das ThreeDFormat -Objekt zurück, das Sie zum Erstellen von 3D-Formen verwenden.The ThreeD property returns the ThreeDFormat object, which you use to create 3D shapes. Die Pickup- und Apply Methoden können Sie die um Formatierung von einer Form in eine andere zu übertragen.You can use the PickUp and Apply methods to transfer formatting from one shape to another.

Verwenden Sie die SetShapesDefaultProperties -Methode für ein Shape -Objekt, um die Formatierung für die Standardform für das Dokument festzulegen.Use the SetShapesDefaultProperties method for a Shape object to set the formatting for the default shape for the document. Neue Formen erben viele Attribute von der Standardform.New shapes inherit many of their attributes from the default shape.

Verwenden Sie die Type -Eigenschaft, um den Typ der Form anzugeben: Freihandform, AUTOFORM, OLE-Objekt, Legende oder verknüpftes Bild, beispielsweise.Use the Type property to specify the type of shape: freeform, AutoShape, OLE object, callout, or linked picture, for instance. Verwenden Sie die AutoShapeType -Eigenschaft den Typ der AutoForm an: Oval, Rechteck oder Blase für die Instanz.Use the AutoShapeType property to specify the type of AutoShape: oval, rectangle, or balloon, for instance.

Verwenden Sie die Eigenschaften Width und height , um die Größe der Form anzugeben.Use the Width and Height properties to specify the size of the shape.

Verwenden Sie die TextFrame-und TextRange-Eigenschaft, um die TextFrame-und TextRange-Objekte zurückzugeben, die alle Eigenschaften und Methoden zum Einfügen und Formatieren von Text in Formen und Publikationen enthalten, und Verknüpfen der Textrahmen.Use TextFrame and TextRange properties to return the TextFrame and TextRange objects, respectively, which contain all the properties and methods for inserting and formatting text within shapes and publications and linking the text frames together. Im folgenden Beispiel wird der ersten Seite der aktiven Publikation ein Textfeld hinzugefügt und dann Text hinzugefügt und der Text formatiert.The following example adds a text box to the first page of the active publication, then adds text to it and formats the text.

Sub CreateNewTextBox() 
    With ActiveDocument.Pages(1).Shapes.AddTextbox( _ 
        Orientation:=pbTextOrientationHorizontal, Left:=100, _ 
        Top:=100, Width:=200, Height:=100).TextFrame.TextRange 
        .Text = "This is a textbox." 
        With .Font 
            .Name = "Stencil" 
            .Bold = msoTrue 
            .Size = 30 
        End With 
    End With 
End Sub

MethodenMethods

NameName
AddToCatalogMergeAreaAddToCatalogMergeArea
ApplyApply
CopyCopy
CutCut
DeleteDelete
DuplicateDuplicate
FlipFlip
GetHeightGetHeight
GetLeftGetLeft
GetTopGetTop
GetWidthGetWidth
IncrementLeftIncrementLeft
IncrementRotationIncrementRotation
IncrementTopIncrementTop
MoveIntoTextFlowMoveIntoTextFlow
MoveOutOfTextFlowMoveOutOfTextFlow
MoveToPageMoveToPage
PickUpPickUp
RemoveCatalogMergeAreaRemoveCatalogMergeArea
RemoveFromCatalogMergeAreaRemoveFromCatalogMergeArea
RerouteConnectionsRerouteConnections
SaveAsBuildingBlockSaveAsBuildingBlock
SaveAsPictureSaveAsPicture
ScaleHeightScaleHeight
ScaleWidthScaleWidth
SelectSelect
SetCaptionSetCaption
SetShapesDefaultPropertiesSetShapesDefaultProperties
UngroupUngroup
ZOrderZOrder

EigenschaftenProperties

NameName
AdjustmentsAdjustments
AlternativeTextAlternativeText
AnwendungApplication
AutoShapeTypeAutoShapeType
BlackWhiteModeBlackWhiteMode
ZierrahmenBorderArt
CalloutCallout
CatalogMergeItemsCatalogMergeItems
ConnectionSiteCountConnectionSiteCount
ConnectorConnector
ConnectorFormatConnectorFormat
FillFill
GlowGlow
GroupItemsGroupItems
HasTableHasTable
HasTextFrameHasTextFrame
HeightHeight
HorizontalFlipHorizontalFlip
HyperlinkHyperlink
IDID
InlineAlignmentInlineAlignment
InlineTextRangeInlineTextRange
IsExcessIsExcess
IsGroupMemberIsGroupMember
IsInlineIsInline
LeftLeft
LineLine
LinkFormatLinkFormat
LockAspectRatioLockAspectRatio
NameName
NodesNodes
OLEFormatOLEFormat
ParentParent
ParentGroupShapeParentGroupShape
PictureFormatPictureFormat
ReflectionReflection
RotationRotation
ShadowShadow
SoftEdgeSoftEdge
TableTable
TagsTags
TextEffectTextEffect
TextFrameTextFrame
TextWrapTextWrap
ThreeDThreeD
TopTop
TypType
VerticalFlipVerticalFlip
VerticesVertices
WebCheckBoxWebCheckBox
WebCommandButtonWebCommandButton
WebListBoxWebListBox
WebNavigationBarSetNameWebNavigationBarSetName
WebOptionButtonWebOptionButton
WebTextBoxWebTextBox
WidthWidth
AssistentWizard
WizardTagWizardTag
WizardTagInstanceWizardTagInstance
ZOrderPositionZOrderPosition

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.