Image de feuil vers userform

[Temjeh]

Bonjour

Je n'ai ptêtre pas schercher comme il le faut mais j'ai pas trouvé


Dans une feuil ex ...Feuil2 j'ai une image qui se nomme Temp et je la voudrait à l'initialisation seulement ( car elle change) dans mon imagebox dans mon userform

Du genre:

Me.Image1 = Sheets("Feuil2").Shapes("Temp")

Merci beaucoup

Temjeh


Je part au travail je revient au diner ...merci

 

[Pierrot93]

Re : Image de feuil vers userform

Bonjour Temjeh,

Rien trouvé pour répondre à ton problème, sinon l'utilisation de la propriété "picture" mais uniquement pour charger une image à partir d'un fichier et non à partire d'une image sur une feuille. Peut être que quelqu'un d'autre aura la solution...

Image1.Picture = LoadPicture(chemin_et_nom_complet_du_fichier_image)

Bonne journée
@+

 

[Temjeh]

Re : Image de feuil vers userform

Merci pour ta rép

Mais si cette image est dans une feuille non dans un dossier?

A+

Temjeh

 

[lacorse33]

Re : Image de feuil vers userform

Bonjour Temjeh,

Pourrais-tu m'envoyer une partie de ton fichier pour que je regarde ?
Je pense qu'il y a une solution mais il me faut un début de fichier.

Merci
A+
Béa

 

[MichelXld]

Re : Image de feuil vers userform

bonjour à vous

cher Temjeh, tu peux utiliser cette procédure qui colle le 1er shape de la Feuil1 dans un graphique.
le graphique est ensuite enregistré au format image puis affiché dans l'UserForm

Option Explicit
Private Const Fichier As String = "C:\ImageTemp.gif"
   
Private Sub CommandButton1_Click()
   Dim nb As Byte
   Dim Sh As Shape
   
   'Supprime l'image temportaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
   
    'Définit le 1er shape de la feuille comme image
    ' à afficher dans l'UserForm
    Set Sh = Worksheets("Feuil1").Shapes(1)
    
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "GIF"
    End With
    
    nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete
    'Affiche l'image dans le graphique
    Image1.Picture = LoadPicture(Fichier)
End Sub
 
Private Sub UserForm_Terminate()
   'Supprime l'image temportaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
End Sub

Sinon, tu peux aussi utiliser la méthode PastePicture de Stephen Bullen

http://www.bmsltd.ie/Excel/SBXLPage.asp



bon week end
MichelXld

 

[Temjeh]

Re : Image de feuil vers userform

Oui merci à vous deux

Je croyais que c'était possible directement sans l'enregister avant.

Merci Michel (je pense même que c'est toi qui me l'avais déjà donnée).j'avais ce genre de code mais si j'ai voulu le simplifié c'est que pour une raison que j'ignore le pourquoi d'un bug!

Je fait ce code à l'initialisation ....Tout est parfait
J'Unload le userform
Je load un autre userform avec le même code et tout est OK
J'Unload le userform
Voici le prob si je reviens à mon 1er Usform il ne met pas le graphique comme il le faut!

A+

Temjeh


J'essayerai ptêtre de mettre un demo du bug prochainnement

Edit:
Ouen pas facile ce bug j'ai reproduit la même chose avec du neuf et tout est parfait
Donc je chercherai le hic dans mon prog

Merci je cherche de moi^même

Temjeh

 

[Staple1600]

Re : Image de feuil vers userform

Bonsoir à tous


Si l'image est stockée dans le userform et nommée par exemple img1

MyControl.Picture = Me.Controls("Img1").Picture

permet d'afficher l'image.


(à suivre un exemple en pièce jointe)

 

[Staple1600]

Re : Image de feuil vers userform

Rebonsoir


Voici un exemple:

 

[Temjeh]

Re : Image de feuil vers userform

Merci beaucoup pour ce démo

Je le garde dans ma base

Ce que je voulait vraiment c'était de charger un image qui se trouvais dans la feuille et pour le faire j'utilisait depuis un bout l'exemple de Michel mais je voulais simplifié car j'avais un bug et je croyais qu'il venait du code donc je voulais plus simple. J'ai donc chercher ailleur car le code de Michel fonctionne et j'ai effectivement(enfin) trouvé mon erreur c'est à propos d'un code qui est dans le même Usform qui fait défiler un texte.


Donc problème régler mais je garde ton idée quand même

Merci à vous tous et si jamais ca se fait direct revenez-moi.

A+

Temjeh