Wie fügen Sie eine command-Schaltfläche in VBA?

Ich versuche, fügen Sie eine Schaltfläche in eine Excel-Arbeitsmappe, so dass es zeigt sich in jedem Blatt. Eine großartige Antwort auf meine ursprüngliche Frage gab mir ein makro zu erstellen, die Schaltflächen, die auf jedem Blatt:

Sub AddButtons()
    Dim ws As Excel.Worksheet
    Dim btn As Button

    For Each ws In ThisWorkbook.Worksheets
        Set btn = ws.Buttons.Add(X, Y, W, H)
        [set btn properties]
    Next ws
End Sub

Bin ich jetzt Probleme mit der Einstellung der Schaltfläche Eigenschaften, so dass die Taste druckt das Blatt auf, wenn Sie gedrückt. Wieder ist hier meine drucken makro:

 Dim WS_Count As Integer
 Dim i As Integer

 ' Set WS_Count equal to the number of worksheets in the active workbook.
 WS_Count = ActiveWorkbook.Worksheets.Count
 'allows user to set printer they want to use
 Application.Dialogs(xlDialogPrinterSetup).Show
 ' Begin the loop.
 For i = 5 To WS_Count
   Worksheets(i).Activate
   With ActiveWorkbook.Worksheets(i).PageSetup
     .PrintArea = "A1:O48"
     .Orientation = xlLandscape
     .Zoom = False
     .FitToPagesTall = 1
     .FitToPagesWide = 1
   End With
   ActiveWorkbook.Worksheets(i).PrintOut

Dort wurden einige gute Vorschläge, wie gehen über die Einbindung dieses makro in den button-Eigenschaften (übergabe von Variablen und erstellen Sie eine neue print-sub) jedoch bin ich ziemlich neu in VBA und habe sich bereits ohne Erfolg in immer diese arbeiten. Idealerweise würde ich eine Schaltfläche-makro, erstellt die Schaltfläche und jedes mal, wenn Sie gedrückt wird, ruft die print-makro für jedes Tabellenblatt.

Eine Letzte Sache, die ich bin versucht zu ändern, der button-code, so dass es nur noch Tasten auf Blatt 5 an. Es wäre toll, wenn jemand wüsste, wie das zu tun, wie gut?

Jede Beratung ist hilfreich und sehr geschätzt!

InformationsquelleAutor Cam | 2015-07-28
Schreibe einen Kommentar