Discussion :

[laurentabj]

Re bonjour,

Je souhaite affecter une image à un bouton créé de façon dynamique par vba.

Est-il possible de "stocker dans le code" ce bitmap afin de ne pas devoir l'appeler via un chemin d'accès ?

Si vous voulez, j'en ai d'autres des questions comme ça

[ouskel'n'or]

Pour coller une image sur un bouton, le fichier image doit exister... A défaut d'une solution plus mieux bien, je suppose qu'en plaçant l'image dans un graphe lui-même placé dans une feuille masquée, tu pourrais réliser de que tu veux. Il "suffirait" alors d'enregistrer le graphe en tant qu'image dans le répertoire de ton fichier et de le récupérer pour ton bouton...
Plus mieux j'ai pas

[laurentabj]

Ah ouais...

Et en stockant l'image dans un formulaire de ma macro ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monBouton.picture = MonUserForm.picture

[ouskel'n'or]

? Comme ça, non mais bon... Il existe peut-être une solution que je ne connais pas...

[laurentabj]

Eureka ! Merci pour ton inspiration !
J'ai donc bien stocké une image dans un control image (Image1) d'un formulaire (MonUserForm)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim monImage as Object
Dim newButton as OLEObject
 
Set wbGAM = ThisWorkbook
Set wbNEW = ActiveWorkbook
 
wbGAM.Activate
Set monImage = MonUserForm.Image1.picture
 
wbNEW.Activate
Set newButton = wbNEW.ActiveSheet.OLEObjects.Add
("Forms.CommandButton.1")
 
 
With newButton
    .Left = 496.5
    .Top = 163.5
    .Width = 197.25
    .Height = 111
    .Object.Picture = monImage
End With
 
...