Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Button in Tabellenblatt

Betrifft: Button in Tabellenblatt von: Andi
Geschrieben am: 31.08.2004 12:57:35

Hi,

habe eine Mappe mit 130 Tabellenblättern. Jetzt möchte ich einen Button auf jedes Blatt. Den Code für den Button kriege ich auf die Blätter...
Leider das Objekt mit Beschriftung nicht...
Hier mal meine Aufzeichnung:

Sub Makro3()
    Application.CommandBars("Control Toolbox").Visible = True
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=451.5, Top:=40.5, Width:=72, Height:=24 _
        ).Select
    Selection.ShapeRange.IncrementLeft -261.75
    Selection.ShapeRange.IncrementTop -34.5
    Application.CommandBars("Control Toolbox").Visible = False
    Application.CommandBars("Control Toolbox").Visible = True
    ActiveSheet.Shapes("CommandButton1").Select
    Application.CommandBars("Control Toolbox").Visible = False
End Sub


Kann mir jemand helfen??

Gruß Andi
  


Betrifft: AW: Button in Tabellenblatt von: kdosi
Geschrieben am: 31.08.2004 14:29:34

Hallo Andi, beschriftung verbirgt sich unter der Eigenschafft Object.Caption. Gruss kdosi.

Sub InsertButtonOnEachSheet()
    Dim btn As OLEObject
    Dim sh As Worksheet
    Dim wrb As Workbook
    
    Set wrb = Application.ActiveWorkbook
    
    For Each sh In wrb.Worksheets
        Set btn = sh.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
        With btn
            .Top = 15
            .Left = 20
'            .Height = 25
'            .Width = 45
            .Object.Caption = "Button" & sh.Name
            .Object.AutoSize = True
        End With
    Next sh
    
End Sub



  


Betrifft: AW: Button in Tabellenblatt von: kdosi
Geschrieben am: 31.08.2004 14:30:47

Hallo Andi, beschriftung verbirgt sich unter der Eigenschafft Object.Caption. Gruss kdosi.

Sub InsertButtonOnEachSheet()
    Dim btn As OLEObject
    Dim sh As Worksheet
    Dim wrb As Workbook
    
    Set wrb = Application.ActiveWorkbook
    
    For Each sh In wrb.Worksheets
        Set btn = sh.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
        With btn
            .Top = 15
            .Left = 20
'            .Height = 25
'            .Width = 45
            .Object.Caption = "Button" & sh.Name
            .Object.AutoSize = True
        End With
    Next sh
    
End Sub



  


Betrifft: AW: Button in Tabellenblatt von: kdosi
Geschrieben am: 31.08.2004 14:32:37

Hallo Andi, beschriftung verbirgt sich unter der Eigenschafft Object.Caption. Gruss kdosi.

Sub InsertButtonOnEachSheet()
    Dim btn As OLEObject
    Dim sh As Worksheet
    Dim wrb As Workbook
    
    Set wrb = Application.ActiveWorkbook
    
    For Each sh In wrb.Worksheets
        Set btn = sh.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
        With btn
            .Top = 15
            .Left = 20
'            .Height = 25
'            .Width = 45
            .Object.Caption = "Button" & sh.Name
            .Object.AutoSize = True
        End With
    Next sh
    
End Sub



  


Betrifft: AW: Button in Tabellenblatt von: Andi
Geschrieben am: 31.08.2004 14:52:28

Danke, kann man auch die Eigenschaften betimmen?


  


Betrifft: AW: Button in Tabellenblatt von: kdosi
Geschrieben am: 31.08.2004 16:37:54

Ja, es sind die Eigenschaften, die man in dem Window "Properties" :-) sieht - dieses Window erscheint wenn man das OLE-Control auswaehlt und in dem ToolBar wo die OLE-Controls sind, den Button "Properties" anklikt (Eine Haendchen die auf ein Blatt zeigt :-). Man muss dabei im Design Modus sein, aber das weisst Du bestimmt :-). Gruss kdosi, CZ.


 

Beiträge aus den Excel-Beispielen zum Thema "Button in Tabellenblatt"