Wie geht Codeteil ohne select
29.09.2020 11:37:16
Dieter(Drummer)
Wie muss der Code OHNE "Select" lauten?
Dieser Code funktiniert wie gewünscht, aber ich bekomnen es nicht hin, den Codeteil ohne "Select" zu schreiben.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Hier der Code:
Sub Test_Klick()
ActiveSheet.Shapes("Rech2").TextFrame2.TextRange.Characters(1, 1).Font.Fill.ForeColor.RGB = RGB( _
255, 0, 0)
'Button "Rech2" versunken
ActiveSheet.Shapes("Rech2").Select
With Selection.ShapeRange.ThreeD
.BevelTopType = msoBevelSoftRound
.BevelTopInset = 12
.BevelTopDepth = 4
End With
SendKeys "{ESC}", True 'OHNE Application, Markierung weg
End Sub
Anzeige