Klasse Axis (PowerPoint VBA)

Die Klasse Axis stellt eine einzelne Achse in einem Diagramm dar.

Die wichtigste Prozeduren der Klasse Axis sind Delete und Select

Set

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

Dim axi as Axis
Set axi = ActiveWindow.RangeFromPoint.Chart.Axes(Type:=1)

Die folgenden Prozeduren können zum Festlegen der Axis Klassenvariablen verwendet werden : Chart.Axes und Axes.Item

Themas

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

Axis with its procedures AxisBetweenCategories, AxisGroup und AxisTitle
Sort/Order with its procedures Border und ReversePlotOrder
Display/Show with its procedures DisplayUnit, DisplayUnitCustom, DisplayUnitLabel und HasDisplayUnitLabel
Format with its procedures Format, Height, TickLabelSpacing, TickLabelSpacingIsAuto, TickMarkSpacing und Width

Methoden

Die Hauptmethoden der Klasse Axis sind

Delete - Löscht das Objekt.

ActiveWindow.RangeFromPoint.Chart.Axes(1).Delete

Select - Markiert das Objekt.

ActiveWindow.RangeFromPoint.Chart.Axes(1).Select

Andere Methoden

Axes.Item - Gibt ein einzelnes Axis -Objekt aus einer aXes -Auflistung zurück.

Dim axi As Axis
Set axi = ActivePresentation.Slides(1).Shapes(1).Chart.Axes(Type:=1)

SetProperty -

Dim strId As String: strId = 
ActiveWindow.RangeFromPoint.Chart.Axes(1).SetProperty Id:=strId, Value:=

Eigenschaften

Axes.Count Gibt die Anzahl der Objekte in der Auflistung zurück. Schreibgeschützter Wert vom Typ Long.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Chart.Axes.Count

Axes.Parent Gibt das übergeordnete Element für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Axes.Parent

BaseUnit Gibt die Basiseinheit für die angegebene Rubrikenachse zurück oder legt diese fest. Lese-/Schreibzugriff XlTimeUnit.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).BaseUnit = xlDays

BaseUnitIsAuto True, Wenn Microsoft Word geeignete Basiseinheiten für die angegebene Rubrikenachse wählt. Der Standardwert ist True. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).BaseUnitIsAuto = True

CategoryNames Zurückgeben oder festlegen die Kategorienamen als Textarray für die angegebene Achse. Variant mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).CategoryNames = Array ("Cow", "Sheep", "Pig")

CategorySortOrder

ActiveWindow.RangeFromPoint.Chart.Axes(1).CategorySortOrder = xlCategoryAscending

CategoryType Gibt den Typ der Rubrikenachse zurück, oder legt diesen fest. Lese-/Schreibzugriff XlCategoryType.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).CategoryType = xlAutomaticScale

Crosses Zurückgeben oder festlegen den Punkt auf der angegebenen Achse Schnittpunkt mit die anderen Achse. Langer Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).Crosses = xlAxisCrossesAutomatic

CrossesAt Gibt auf der Größenachse den Schnittpunkt mit der Rubrikenachse zurück oder legt ihn fest. Nur gültig für die Größenachse. Doppelter Wert mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.Axes(1).CrossesAt =

HasMajorGridlines True, Wenn die Achse Haupt-Gitternetzlinien verfügt. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).HasMajorGridlines = True

HasMinorGridlines True, Wenn die Achse Hilfs-Gitternetzlinien verfügt. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).HasMinorGridlines = True

HasTitle True, wenn die Achse eine sichtbare Beschriftung oder das Diagramm einen sichtbaren Titel aufweist. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).HasTitle = True

Left Gibt den Abstand (in Punkt) vom linken Rand des Objekts zum linken Rand des Diagrammbereichs zurück.

Dim dblLeft As Double
dblLeft = ActiveWindow.RangeFromPoint.Chart.Axes(1).Left

LogBase Zurückgeben oder festlegen die Basis des Logarithmus bei Verwendung von Log skaliert. Doppelter Wert mit Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.Chart.Axes(1).LogBase =

MajorGridlines Gibt die Hauptgitternetzlinien für die angegebene Achse zurück. Schreibgeschützte Gitternetzlinien.

Dim grdsMajorGridlines As Gridlines
Set grdsMajorGridlines = ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorGridlines

MajorTickMark Gibt die Art der Hauptteilstriche für die angegebene Achse zurück oder legt sie fest. Lese-/Schreibzugriff XlTickMark.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorTickMark = xlTickMarkCross

MajorUnit Gibt die Haupteinheiten auf der Größenachse zurück oder legt sie fest. Doppelter Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorUnit = 10

MajorUnitIsAuto True, Wenn Microsoft Word die Hilfseinheiten für die Größenachse automatisch berechnet. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorUnitIsAuto = True

MajorUnitScale Gibt zurück oder legt den Wert der Haupteinheit Skalierung für die Rubrikenachse, wenn die CategoryType-Eigenschaft auf xlTimeScalefestgelegt ist. Lese-/Schreibzugriff XlTimeUnit.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MajorUnitScale = xlDays

MaximumScale Gibt das Maximum auf der Größenachse zurück oder legt es fest. Doppelter Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MaximumScale = 500

MaximumScaleIsAuto True, Wenn Microsoft Word den Maximalwert für die Größenachse automatisch berechnet. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MaximumScaleIsAuto = True

MinimumScale Gibt den Minimalwert auf der Größenachse zurück oder legt ihn fest. Double-Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinimumScale = 50

MinimumScaleIsAuto True, Wenn Microsoft Word den minimalen Wert für die Größenachse automatisch berechnet. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinimumScaleIsAuto = True

MinorGridlines Gibt die Hilfsgitternetzlinien für die angegebene Achse zurück. Schreibgeschützte Gitternetzlinien.

Dim grdsMinorGridlines As Gridlines
Set grdsMinorGridlines = ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorGridlines

MinorTickMark Gibt die Art der Hilfsteilstriche für die angegebene Achse zurück oder legt sie fest. Lese-/Schreibzugriff XlTickMark.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorTickMark = xlTickMarkCross

MinorUnit Gibt die Hilfsintervalle auf der Größenachse zurück oder legt sie fest. Doppelter Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorUnit = 10

MinorUnitIsAuto True, Wenn Microsoft Word Hilfsintervalle der Größenachse automatisch berechnet. Boolescher Wert mit Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorUnitIsAuto = True

MinorUnitScale Dient zum Zurückgeben oder Festlegen des Werts für die untergeordnete Maßeinheit für die Rubrikenachse, wenn die CategoryType-Eigenschaft auf xlTimeScalefestgelegt ist. Lese-/Schreibzugriff XlTimeUnit.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).MinorUnitScale = xlDays

Parent Gibt das übergeordnete Element für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Axes(1).Parent

ScaleType Gibt die Art der Skalierung für die Größenachse zurück oder legt sie fest. Lese-/Schreibzugriff XlScaleType.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).ScaleType = xlScaleLinear

TickLabelPosition Beschreibt die Position der Teilstrichbeschriftungen der angegebenen Achse. Lese-/Schreibzugriff XlTickLabelPosition.

ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).TickLabelPosition = xlTickLabelPositionHigh

TickLabels Gibt die Teilstrichbeschriftungen der angegebenen Achse zurück. Schreibgeschützter TickLabels.

Dim tlsTickLabels As TickLabels
Set tlsTickLabels = ActivePresentation.Slides(1).Shapes(1).Chart.Axes(1).TickLabels

Top Gibt den Abstand (in Punkt) vom oberen Rand des Objekts zum oberen Ende der Zeile 1 (auf einem Arbeitsblatt) oder der Oberseite des Diagrammbereichs (in einem Diagramm) zurück.

Dim dblTop As Double
dblTop = ActiveWindow.RangeFromPoint.Chart.Axes(1).Top

Type Gibt den Achsentyp zurück.

ActiveWindow.RangeFromPoint.Chart.Axes(1).Type = xlCategory