Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > JPG-Datei dauerhaft einem CommandButton zuordnen
Normale Version: JPG-Datei dauerhaft einem CommandButton zuordnen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

excl50

02.11.2018, 16:49
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!

RPP63

02.11.2018, 19:37
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

Flotter Feger

02.11.2018, 20:17
Hallöchen Ralf,

... das Bildchen wippt aber doch nicht so schön, wenn man die Maustaste drückt ...  Dodgy

RPP63

02.11.2018, 20:40
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 …

Flotter Feger

02.11.2018, 21:14
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 ?

RPP63

02.11.2018, 21:28
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:

RPP63

02.11.2018, 22:07
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!

Flotter Feger

02.11.2018, 22:39
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 . Sleepy

... aber in Excel ... [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
] ... ???
Clever-Excel-Forum > Office-Anwendungen > Excel > JPG-Datei dauerhaft einem CommandButton zuordnen