Activate + Select vermeiden

Forumthread: Activate + Select vermeiden
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Activate + Select vermeiden

13.08.2005 01:52:07

Rainer

Hallo,
wie kann ich hier Activate und Select vermeiden?


Sub Makro1()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScale = 130
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

Gruß Rainer

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Activate + Select vermeiden

13.08.2005 01:57:42

K.Rola
Funktioniert super. Vielen Dank. o. T.

13.08.2005 02:01:01

Rainer

AW: Activate + Select vermeiden

13.08.2005 01:57:42

K.Rola

Hallo,


Sub Makro1()
With ActiveSheet.ChartObjects("Diagramm 1").Chart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScale = 130
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

Gruß K.Rola

Funktioniert super. Vielen Dank. o. T.

13.08.2005 02:01:01

Rainer