Picture Größe in Commandbutton variabel per Code
25.07.2019 11:39:04
Dieter(Drummer)
... auch auf die Gefahr hin, zu nerven ...
... im Code(1) wird das Picture per Inputbox und ID in den Commandbutton eingefügt.
Leider kann ich die Größe des Pictures, im Code, nicht variabel halten.
Im Code(2) kann die Größe variabel im Code festgelegt werden, z.B. ", 20, 20".
Nachteil in diesem Code (2) ist, ich nicht per ID das Picture wählen kann, sondern es muss per engl. Namen angegeben werden. Eine Liste engl. Namen der Picture habe ich im Netz auch nicht gefunden.
Den Code (1) bevorzuge ich und möchte die Pícture Größe eben auch im Code, frei definieren können.
Hier eine Beispieldatei: https://www.herber.de/bbs/user/131067.xlsm
Mit der Bitte um Hilfe und nochmaligem Dank den bisherigen Helfern/innen.
Gruß, Dieter(Drummer)
Code(1)
Bisheriger Code, OHNE Größenänderung des Pictures:
'Herber: von Regina Resch-Jansen am 14.07.2019 15:43:21
'Mit Abbruch Ergänzung von: Herber: von Beverly am 16.07.2019 10:12:29
Private Sub CommandButton1_Click()
Dim lng_id As Long
lng_id = Application.InputBox("ID?", , , , , , , 1)
If lng_id = 0 Then
Else
Set CommandButton1.Picture = Application.CommandBars.FindControl(ID:=lng_id).Picture
CommandButton1.PicturePosition = fmPicturePositionLeftCenter 'Picture Ausrichtung links vom _
_
Buttontext
End If
End Sub
Code(2)- Nicht bevorzugt.
Private Sub CommandButton1_Click()
Set CommandButton1.Picture = _
Application.CommandBars.GetImageMso("FileSave", 20, 20)
CommandButton1.PicturePosition = 2
End Sub