Image dans userform VB Excel

Résolu/Fermé

ed - 20 sept. 2009 à 19:21
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 23 sept. 2009 à 20:16

Bonjour tout le monde !

J'ai un petit problème en programmation VB pour Excel que je n'arrive pas à résoudre :

J'aimerais insérer une image dans un userform, MAIS sans la charger à partir du path "C:\path\mon_image".
(En fait c'est pour un petit programme en VB pour Excel qui doit tourner sur l'ordinateur de M. Toutlemonde avec une jolie charte graphique...).

Est-il possible de mettre cette image dans une feuille du fichier Excel et d'y faire appel pour l'insérer dans mon userform ?

Si quelqu'un a une solution, je suis preneur !

Merci d'avance
ed

A voir également:

Image dans userform VB Excel
Liste déroulante excel - Guide
Formule excel - Guide
Image iso - Guide
Si et excel - Guide
Aller à la ligne dans une cellule excel - Guide

4 réponses

Réponse 1 / 4

ed
23 sept. 2009 à 19:01

Super !
Merci à toi Bidouilleu_R, j'ai utilisé une partie de ton code et ça marche nickel !
Je mets le code ci-dessous pour d'autres qui éventuellement auraient le même problème.
@+ed

Sub BoutonCalcul_Click()

Set CurrentChart = Sheets("Calculs").ChartObjects("Graphique 2").Chart

' Sauve le graphique en format GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"

' Affiche le graphique à l'intérieur de l'userform
UserForm_TPicture.Width = 477.75ypeEau.Picture = LoadPicture(Fname)

' Modification largeur/hauteur du graphique à l'intérieur de l'usf
CurrentChart.Parent.Width = 477.75
CurrentChart.Parent.Height = 343.5

Load UserForm_TypeEau
UserForm_TypeEau.Show

End Sub

Réponse 2 / 4

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
21 sept. 2009 à 11:53

oui c'est possible.

Il y a plusieurs methodes...

sur ce lien tu trouveras une explication.

https://www.developpez.net/forums/d115480/logiciels/microsoft-office/excel/macros-vba-excel/vba-e-graphique-excel-userform/

à voir aussi
https://silkyroad.developpez.com/VBA/VisualBasicEditor/

Je te donne ma méthode....
dans un userform place un bouton nommé BoutonSuivantqui va contrôler La mise à jour de 5 graphique. (
la procédure Updatechart met à jour le graphique... c'est le deuxième programme.
Attention il faux Qu'un graphique existe sinon. erreur !!!

'Code du BoutonSuivant
Private Sub BoutonSuivant_Click()
If ChartNum = 5 Then
ChartNum = 1
Else
ChartNum = ChartNum + 1
UpdateChart
End If
Do Events
End Sub

Private Sub UpdateChart()
Set CurrentChart = Sheets("Evolution").ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = 480
CurrentChart.Parent.Height = 300

' Sauve le graphique en format GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"

' Affiche le graphique
Image1.Picture = LoadPicture(Fname)
End Sub

A+

Réponse 3 / 4

ed
23 sept. 2009 à 19:06

et m**** je trouve plus où est ce qu'on peut mettre le statut de la question en "Résolu"...

Réponse 4 / 4

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
23 sept. 2009 à 20:16

et bien sur le premier topic en haut à droite sinon signale au modérateurs ils le feront.
Bonne soirée
R

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters