Excel und VBA: Formeln, Programmierung, Lösungen

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