Klasse Walls - Wände (Word VBA)

Die Klasse Walls stellt die Wände eines 3D-Diagramms dar. Um eine Walls -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim wlls as Walls
Set wlls = ActiveDocument.Background.Chart.BackWall

ClearFormats

Löscht die Formatierung des Objekts.

ActiveDocument.Background.Chart.BackWall.ClearFormats

Format

Gibt die Linien-, Füll- und effektformatierung für das Objekt.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveDocument.Background.Chart.BackWall.Format

Name

Gibt den Namen des Objekts zurück.

Dim strName As String
strName = ActiveDocument.Background.Chart.BackWall.Name

Paste

Fügt an den Wänden des angegebenen Diagramms ein Bild aus der Zwischenablage ein.

Diese Methode kann für Säulen-, Balken-, Linien- oder Netzdiagramme verwendet werden.

ActiveDocument.Background.Chart.BackWall.Paste

PictureType

Gibt einen Wert zurück, der angibt, wie Bilder an den Wänden und Flächen eines 3D-Diagramms angezeigt werden, oder legt diesen Wert fest. Mögliche Rückgabewerte sind xlStack - Die Größe des Bilds wird so geändert, dass es 15 Mal in den längsten gestapelten Balken passt, xlStackScale - Die Größe des Bilds wird auf eine bestimmte Anzahl von Einheiten festgelegt und dann im Balken wiederholt, xlStretch - Das Bild wird auf die gesamte Länge des gestapelten Balkens gestreckt.

Sie können diese Eigenschaft auf eine der folgenden XlChartPictureType -Konstanten festlegen: XlStack oder XlStretch.

ActiveDocument.Background.Chart.BackWall.PictureType = xlStack

PictureUnit

Gibt die Einheit für jedes Bild im Diagramm zurück oder legt Sie fest, wenn die PictureType -Eigenschaft auf xlStackScalefestgelegt ist; Andernfalls wird diese Eigenschaft ignoriert.

ActiveDocument.Background.Chart.BackWall.PictureUnit =

Select

Markiert das Objekt.

ActiveDocument.Background.Chart.BackWall.Select

Thickness

Gibt an, oder wird die Stärke der Wand.

Mit dieser Eigenschaft können Sie die Dicke der Wände für ein Diagramm festlegen.

ActiveDocument.Background.Chart.BackWall.Thickness =