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!
Du musst angemeldet sein, um einen Kommentar abzugeben.
Versuchen Sie dies:
X
undY
bestimmen Sie den Speicherort,W
undH
bestimmen Sie die Größe der Schaltfläche.Dies wird fügen Sie eine Schaltfläche (Formular-Steuerelement) und weisen ein vorhandenes makro zu.
Nun Knöpfe aus Blatt 5 ab nur, können Sie versuchen:
Produziert eine Liste mit all deinen Blattnamen (wenn es nur ein paar von Ihnen)
Tun es die andere Weise herum. Machen Sie eine Liste, was Sie ausschließen und testen jedes Blatt, wenn es auf der Liste steht oder nicht.
Ihre test-sub verwendet zu werden in den oben genannten Proben.