Ich habe einen Pfeil und wenn ich darauf klicke, sollte eine Wolkenform erscheinen. Das funktioniert jetzt gut. Was ich jetzt will, ist, dass, wenn ich denselben Knopf wieder klicke, die Wolke verschwinden sollte. Ich gues ich brauche, um meine Wolke ein Objekt und als für seinen Zustand oder etwas zu machen, aber ich habe nicht herausfinden, wie noch .. das ist mein Code:Öffnen und schließen einer Form mit dem gleichen "Knopf"
Sub Blase()
ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 795, 8.25, 107.25, 41.25). _
Select
Selection.ShapeRange.Adjustments.Item(1) = -0.25029
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "text..."
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 10). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignLeft
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 10).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 11
.Name = "+mn-lt"
End With
Range("P5").Select
End Sub
Betrachten
Wenn ich dies tue, wird mein Blatt leer: D – zooky
@z Wiederholen Sie dies auf einem leeren Blatt. –
@zooky Siehe meine ** EDIT # 1 ** –