Objekte in Excel ein/ausblenden

Question

Hallo Ihr Lieben,

ich habe eine Exceltabelle in der ich Objekte "Pfeile, Linien, Kreise usw." eingefügt haben.
Ich möchte die dabei diese je nach Bedingung, über ein Makro ein- oder ausblenden lassen.

Danke

Leonie

Answer 1

Ich habe mal ein kleines Beispiel mit einer Ellipse:

ActiveSheet.Shapes("Oval 1").Visible = False
Selection.ShapeRange.IncrementLeft -180#
Selection.ShapeRange.IncrementTop -11.25
ActiveSheet.Shapes("Oval 1").Visible = True

Die Ellipse wird ausgeblendet, nach links und nach oben verschoben und dann wieder eingeblendet.

Wie die Bezeichnungen deiner Objekte lauten, bekommst du am leichtesten heraus, indem du mal ein Makro aufzeichnest, in dem du mit den Objekten etwas anstellst (z.B. verschieben).

Gruß Flupo

Answer 2

Danke für die schnelle und gute Antwort.

Hab das gleich ausprobiert und es funktioniert.
Vielen Dank

Answer 3

Hi Leonie,

versuche es mal nach diesem Prinzip:

Sub EinAusblenden()
Dim shShape As Shape
For Each shShape In ActiveSheet.Shapes
If shShape.Type = 1 Or shShape.Type = 9 Then shShape.Visible = Not shShape.Visible
Next shShape
End Sub

Bis später,
Karin