Registriert seit: 22.01.2018
Version(en): 2016
Hallo zusammen,
ist es möglich eine JPG-Datei dauerhaft einem CommandButton zuzuordnen.
Wenn ich jetzt einem CommandButton eine JPG-Datei zuordne, dann wie folgt: Me.CommandButton1.Picture = LoadPicture(Bildpfad)
Aber dieser Bildpfad trifft ja nur auf meinen PC zu.
Wenn die Arbeitsmappe an einen anderen Computer gesendet wird, stimmt der Bildpfad nicht mehr.
Vielen Dank im Voraus!
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Moin!
Mal davon abgesehen, dass ich persönlich einen Bild-Button pubertär finde:
Nimm doch gleich ein Picture und verzichte auf den sinnlosen CB!
So ein Bildchen hat ein _MouseDown-Event und hat den Vorteil(?), dass es in der Datei gespeichert wird.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 03.10.2018
Version(en): 2010 ProPlus / 2016 ProPlus
Hallöchen Ralf,
... das Bildchen wippt aber doch nicht so schön, wenn man die Maustaste drückt ...
VG Sabina
bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Kann man "programmieren"!
Sogar mit pulsierendem Rahmen.
Ein paar APIs, 100 Zeilen Code und schon sagen alle User, dass das echt stark ist.
Und schon haben wir wieder ein paar Forenteilnehmer, die erst ein Userform erstellen und sich hinterher fragen, wie man dieses schöne Teil mit einer noch zu erstellenden Tabelle verbindet …
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• shift-del
Registriert seit: 03.10.2018
Version(en): 2010 ProPlus / 2016 ProPlus
Hallöchen Ralf,
mir würde das so schon mal fürs Erste reichen ...
PHP-Code:
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectRaised
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectEtched
MsgBox "Hallo"
End Sub
Private Sub UserForm_Initialize()
Image1.SpecialEffect = fmSpecialEffectEtched
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectEtched
End Sub
Dir nicht ?
VG Sabina
bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Fast off topic:
Nein!
Ich will es bunt und nach Möglichkeit pulsierend!
Abseits dessen gibt es sicherlich noch etliche Properties und Events, die man dem unschuldigen Bild angedeihen kann.
Man darf nur nicht vergessen, was man eigentlich vor hatte. :21:
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Oha!
@TE:
22 Themen
38 Beiträge
Blödes Verhältnis!
Aber es ist prima, dass Du dies hier als gelöst gekennzeichnet hast.
Farewell!
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 03.10.2018
Version(en): 2010 ProPlus / 2016 ProPlus
Hallöchen nochmal mein Großer,
... du bist heute aber drauf ... dich kann frau heute ja gar nicht zufrieden stellen ...
bunt [img]
Dateiupload bitte im Forum! So geht es: Klick mich!] und nach Möglichkeit pulsierend!
Hatte ich heute schon ...
alles weitere Zensiert, da nicht jugendfrei .
... aber in Excel ... [img]
Dateiupload bitte im Forum! So geht es: Klick mich!] ... ???
VG Sabina
bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.