Omdat ik in heel veel bestanden in een van de sheets een activex-button moet plaatsen, wil ik dit doen vanuit een macro.
Deze macro opent steeds een volgend bestand, het juiste sheet wordt geopend en dan ..
Vanuit VBA wil ik dus een activex-button plaatsen in een sheet.
Ook vanuit VBA wil ik deze button dan een andere (name en) caption geven en er een macro aan hangen.
Dit werkt:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=1000, Top:=5.25, Width:=125, Height _
:=27).Select
Er staat nu een button in mijn sheet.
Maar nu??
Het volgende werkt niet, wie kan mij helpen?
ActiveSheet.Shapes("CommandButton1").Select
With Selection
.Caption = "instellen printen per maand"
End With
Alvast bedankt.
Deze macro opent steeds een volgend bestand, het juiste sheet wordt geopend en dan ..
Vanuit VBA wil ik dus een activex-button plaatsen in een sheet.
Ook vanuit VBA wil ik deze button dan een andere (name en) caption geven en er een macro aan hangen.
Dit werkt:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=1000, Top:=5.25, Width:=125, Height _
:=27).Select
Er staat nu een button in mijn sheet.
Maar nu??
Het volgende werkt niet, wie kan mij helpen?
ActiveSheet.Shapes("CommandButton1").Select
With Selection
.Caption = "instellen printen per maand"
End With
Alvast bedankt.