Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

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.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und WordArt