Thema
WordArt-Element hinzufügen und löschen
Gruppe
WordArt
Problem
Bei Aktivierung der CheckBox soll ein WordArt-Element hinzugefügt, bei Deaktivierung gelöscht werden.
ClassModule: Tabelle1
Private Sub chbWordArt_Click()
Dim shp As Shape
If chbWordArt.Value = True Then
Set shp = ActiveSheet.Shapes.AddTextEffect( _
msoTextEffect15, _
"Mein Text", _
"Arial Black", _
36#, _
msoFalse, _
msoFalse, _
289.5, _
186.75)
chbWordArt.TopLeftCell.Value = shp.Name
Else
ActiveSheet.Shapes(chbWordArt.TopLeftCell.Value).Delete
chbWordArt.TopLeftCell.ClearContents
End If
End Sub