ActiveSheet.Shapes("Oval 1").Visible = False Selection.ShapeRange.IncrementLeft -180# Selection.ShapeRange.IncrementTop -11.25 ActiveSheet.Shapes("Oval 1").Visible = True
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
58.4k Fragen
249k Antworten
7k Nutzer