Klasse InlineShape (Word VBA)

Die Klasse InlineShape stellt ein Objekt in der Textebene eines Dokuments dar.

Die wichtigste Prozeduren der Klasse InlineShape sind Delete, Select, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPicture, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt und InlineShapes.AddWebVideo

Set

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

Dim ise as InlineShape
Set ise = ActiveDocument.Range.InlineShapes(Index:=1)

Die folgenden Prozeduren können zum Festlegen der InlineShape Klassenvariablen verwendet werden : Field.InlineShape, InlineShapes.Item, InlineShapes.AddPicture, InlineShapes.New, InlineShapes.Add3DModel, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt, InlineShapes.AddWebVideo, ListFormat.ListPictureBullet, ListLevel.ApplyPictureBullet, ListLevel.PictureBullet, Shape.ConvertToInlineShape, ShapeRange.ConvertToInlineShape, Document.InlineShapes, Range.InlineShapes und Selection.InlineShapes

For Each

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

Dim ise As InlineShape
For Each ise In ActiveDocument.Range.InlineShapes
	
Next ise

Themas

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

Format with its procedures Borders, HorizontalLineFormat, LinkFormat, OLEFormat, ScaleHeight und ScaleWidth
Add with its procedures InlineShapes.Add3DModel, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPicture, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt und InlineShapes.AddWebVideo

Methoden

Die Hauptmethoden der Klasse InlineShape sind

Delete - Löscht die angegebene Inlineform.

ActiveDocument.Range.InlineShapes(1).Delete

Select - Markiert die angegebene Inlineform.

ActiveDocument.Range.InlineShapes(1).Select

Eigenschaften

AlternativeText Zurückgeben oder Festlegen einer Zeichenfolge , die den alternativen Text darstellt, der einem Shape auf einer Webseite zugeordnet ist.

ActiveDocument.Range.InlineShapes(1).AlternativeText =

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

Dim chrChart As Chart
Set chrChart = ActiveDocument.Range.InlineShapes(1).Chart

Decorative

ActiveDocument.Range.InlineShapes(1).Decorative =

Field Gibt ein Field -Objekt zurück, das das Feld darstellt, das der angegebenen Inlineform zugeordnet ist.

Dim fldField As Field
Set fldField = ActiveDocument.Range.InlineShapes(1).Field

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.Range.InlineShapes(1).Fill

Glow Gibt ein GlowFormat -Objekt zurück, das die Formatierungseigenschaften für einen Glüheffekt darstellt.

Dim gftGlow As GlowFormat
Set gftGlow = ActiveDocument.Range.InlineShapes(1).Glow

GraphicStyle

ActiveDocument.Range.InlineShapes(1).GraphicStyle =

GroupItems Gibt eine GroupShapes -Auflistung zurück, die die Shapes darstellt, die für eine Inlineform gruppiert sind.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActiveDocument.Range.InlineShapes(1).GroupItems

HasChart True, wenn es sich bei der angegebenen Form um ein Diagramm handelt.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveDocument.Range.InlineShapes(1).HasChart

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

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = ActiveDocument.Range.InlineShapes(1).HasSmartArt

Height Gibt die Höhe einer Inlineform zurück oder legt sie fest.

ActiveDocument.Range.InlineShapes(1).Height =

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

Dim hypHyperlink As Hyperlink
Set hypHyperlink = ActiveDocument.Range.InlineShapes(1).Hyperlink

IsPictureBullet True gibt an, dass ein InlineShape-Objekt ein Bildaufzählungszeichen ist.

Dim booIsPictureBullet As Boolean
booIsPictureBullet = ActiveDocument.Range.InlineShapes(1).IsPictureBullet

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

Dim lftLine As LineFormat
Set lftLine = ActiveDocument.Range.InlineShapes(1).Line

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

ActiveDocument.Range.InlineShapes(1).LockAspectRatio =

Model3D

Dim mdfModel3D As Model3DFormat
Set mdfModel3D = ActiveDocument.Range.InlineShapes(1).Model3D

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

Dim objParent As Object
Set objParent = ActiveDocument.Range.InlineShapes(1).Parent

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

ActiveDocument.Range.InlineShapes(1).PictureFormat =

Range Gibt ein Range -Objekt zurück, das den Teil eines Dokuments darstellt, der in einer Inlineform enthalten ist.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.InlineShapes(1).Range

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

Dim rftReflection As ReflectionFormat
Set rftReflection = ActiveDocument.Range.InlineShapes(1).Reflection

Script Gibt ein Script -Objekt zurück, das einen Block von Skript oder Code darstellt, der einem Bild auf der angegebenen Webseite zugeordnet ist.

Dim scrScript As Office.Script
scrScript = ActiveDocument.Range.InlineShapes(1).Script

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

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveDocument.Range.InlineShapes(1).Shadow

SmartArt Gibt ein SmartArt -Objekt zurück, das eine Möglichkeit zum Arbeiten mit der SmartArt-Methode darstellt, die der angegebenen Inlineform zugeordnet ist.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = ActiveDocument.Range.InlineShapes(1).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.Range.InlineShapes(1).SoftEdge

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

ActiveDocument.Range.InlineShapes(1).TextEffect =

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

ActiveDocument.Range.InlineShapes(1).Title =

Type Gibt den Typ der Inlineform zurück.

Dim wisType As WdInlineShapeType
wisType = ActiveDocument.Range.InlineShapes(1).Type

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

ActiveDocument.Range.InlineShapes(1).Width =

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

Dim lngCount As Long
lngCount = ActiveDocument.Range.InlineShapes.Count

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

Dim objParent As Object
Set objParent = ActiveDocument.Range.InlineShapes.Parent