Charts mit VBA verändern
19.08.2004 10:02:57
Thomas
Ich kann zwar die Grafiken verändern, bei der Ausrichtung jedoch orientiert sich VBA an den Zellabständen von Sheet(2). Wie kann ich es ändern, dass die Zellenabstände von Sheet(1) herangezogen werden, OHNE auf dieses zu wechseln?
Oder kann man eine Sub auch von einem anderen Worksheet aus aufrufen? Wenn ja, wie?
lg, thomas
Private Sub ViewAll()
With Sheets("Graphics")
With .Shapes("Chart 4")
.Left = Range("B6").Left
.Top = Range("B6").Top
.Height = 154
.Width = 540
End With
With .Shapes("Chart 5")
.Left = Range("L6").Left
.Top = Range("L6").Top
.Height = 153
.Width = 267
End With
With .Shapes("Chart 10")
.Left = Range("G26").Left
.Top = Range("G26").Top
.Height = 328
.Width = 267
End With
With .Shapes("Chart 9")
.Left = Range("L26").Left
.Top = Range("L26").Top
.Height = 328
.Width = 267
End With
End With
End Sub
Anzeige