Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen

Wie geht Codeteil ohne select

Betrifft: Wie geht Codeteil ohne select von: Dieter(Drummer)
Geschrieben am: 29.09.2020 11:37:16

Guten Tag Spezialisten/-innen.

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


  • Betrifft: AW: Wie geht Codeteil ohne select
    von: Rudi Maintaire
    Geschrieben am: 29.09.2020 12:17:43

    Hallo,
    Sub Test_Klick()
      With ActiveSheet.Shapes("Rech2")
        .TextFrame2.TextRange.Characters(1, 1).Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
        'Button "Rech2" versunken
        With .ThreeD
          .BevelTopType = msoBevelSoftRound
          .BevelTopInset = 12
          .BevelTopDepth = 4
        End With
      End With
    End Sub

    Gruß
    Rudi

    Betrifft: AW: Einfach perfekt, Rudi ...
    von: Dieter(Drummer)
    Geschrieben am: 29.09.2020 12:24:04

    ... und herzlichen Dank.
    Noch einen erfeulichen Tag.

    Gruß, Dieter(Drummer)