per VBA-CB erzeugen mit Code
13.06.2016 14:44:16
Alex
ich erstell eine neue "Druckseite", auf die ein CommandButton erscheinen soll, mit dem ich die Druckseite drucken kann.
Den Button mit VBA einfügen etc. ist kein Problem...
Wie verknüpfe ich aber bei der Erstellung des CB den Code dazu?
Code für die Erstellung des CB:
Set CB = Worksheets("Druckseite").OLEObjects.Add("Forms.CommandButton.1") 'Button einfügen
With CB 'Button formatieren
.PrintObject = False
.Object.Caption = "Drucken"
.Top = 123
.Left = 456
.Height = 40
.Width = 150
End With
Befehl, der hinterlegt werden soll:Sub Drucken()
Dim strDatei As String
Application.Dialogs(xlDialogPrint).Show
End Sub
Danke!Gruß Alex