Shapes.Range-Methode (Word)

Artikel
04/07/2023

Gibt ein ShapeRange-Objekt zurück, das die Formen innerhalb eines Bereichs darstellt.

Syntax

Ausdruck. Bereich (Index)

expression Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Erforderlich	Variant	Gibt an, welche Formen im angegebenen Bereich enthalten sein sollen. Kann eine ganze Zahl sein, die die Indexnummer einer Form innerhalb der Shapes-Auflistung angibt, eine Zeichenfolge, die den Namen einer Form angibt, oder ein Array, das ganze Zahlen oder Zeichenfolgen enthält.

Rückgabewert

ShapeRange

Hinweise

Ein Shape-Objekt wird immer auf derselben Seite wie der Bereich angezeigt, mit dem es verankert ist.

Hinweis

Die meisten Operationen, die Sie mit einem Shape-Objekt ausführen können, können Sie auch mit einem ShapeRange-Objekt durchführen, das eine einzige Form enthält. Einige Operationen führen zu einem Fehler, wenn sie für ein ShapeRange-Objekt durchgeführt werden, das mehrere Formen enthält.

Beispiel

In diesem Beispiel wird für die erste Form im aktiven Dokument die Vordergrundfarbe der Füllung auf Lila festgelegt.

Sub ShRange() 
 With ActiveDocument.Shapes.Range(1).Fill 
 .ForeColor.RGB = RGB(255, 0, 255) 
 .Visible = msoTrue 
 End With 
End Sub

In diesem Beispiel wird eine variable Form im aktiven Dokument mit einem Schatten versehen.

Sub ShpRange2(strShpName As String) 
 ActiveDocument.Shapes.Range(strShpName).Shadow.Type = msoShadow6 
End Sub

Geben Sie zum Aufrufen der vorangegangenen Subroutine den folgenden Code in ein Standardcodemodul ein.

Sub CallShpRange2() 
 Dim shpArrow As Shape 
 Dim strName As String 
 
 Set shpArrow = ActiveDocument.Shapes.AddShape(Type:=msoShapeLeftArrow, _ 
 Left:=200, Top:=400, Width:=50, Height:=75) 
 
 shpArrow.Name = "myShape" 
 strName = shpArrow.Name 
 ShpRange2 strShpName:=strName 
End Sub

In diesem Beispiel werden die Formen 1 und 3 im aktiven Dokument markiert.

Sub SelectShapeRange() 
 ActiveDocument.Shapes.Range(Array(1, 3)).Select 
End Sub

In diesem Beispiel werden die Formen in der ersten Form des aktiven Dokuments markiert und gelöscht. In diesem Beispiel wird vorausgesetzt, dass es sich bei der ersten Form um einen Zeichenbereich handelt.

Sub CanvasShapeRange() 
 Dim rngCanvasShapes As Range 
 Set rngCanvasShapes = ActiveDocument.Shapes(1).CanvasItems.Range(1) 
 rngCanvasShapes.Select 
 rngCanvasShapes.Delete 
End Sub

Siehe auch

Shapes Collection Object

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über