ComboBox = Ajouter image à partir de l'USF

marcelio -  
Bonjour le Forum,
Dans un USF (FANION) j’ai inséré plusieurs images (boite à outils, image) et insérer les fanions de plusieurs villes.
Sur ma feuille Table avec un double clic sur les cellules suivante : de Q13 à Q19 cela m'ouvre un USF (infos) avec l'image du nom sur lequel j'ai cliquer.

Sur ma feuille Table1
Ce que j'aimerais faire et que je n'y suis pas arriver c'est avec ma combobox 1 en choississant une ville,
c'est de coller l'image de cette ville dans le rectangle 1 ou la Picture 1 à partir des images de l'USF (FANION).

Si cela est possible merci d’avance de votre aide.
Marcelio

https://www.cjoint.com/c/IKskdkG0WdG

Configuration: Windows / Edge 18.18362


--

6 réponses

  1.  cs_Le Pivert Contributeur
    Bonjour,

    pour copier une image du control image de l'userform sur une feuille: 

     Sub copier()
Dim btn As OLEObject
'positionnement et dimensions sur la feuille à adapter
Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=514.5, Top:=101.25, Width:=311.25, Height _
:=212.25)
With btn
    .Object.Picture = Image1.Picture  'Control image a adapter
    .Object.PictureSizeMode = fmPictureSizeModeZoom
     .Object.BorderColor = RGB(255, 0, 0) 'rouge facultatif
      .Object.BackColor = RGB(0, 128, 64) 'vert facultatif
End With
End Sub


    et pour la supprimer: 

    Sub EffaceImages()
 Dim x As Shape
 For Each x In ActiveSheet.Shapes
         x.Delete
    Next x
 End Sub


    Voilà

    0
    1. marcelio Auteur
      Bonsoir @+Le Pivert et le Forum,
      J'ai testé ton code mais celui ci n'affiche pas mes images qui sont dans l'USF Fanion.
      Si tu peu me faire un fichier exemple cela serais super.
      Bonne soirée à toi et au Forum
      Marcelio

      --
      0
      1. cs_Le Pivert Contributeur
        Voilà un exemple avec Tomate, tu fais la même chose pour les autres images:

        https://www.cjoint.com/c/IKthfBvlVbQ

        @+ Le Pivert
        0
    2. marcelio Auteur
      Bonjour @+Le Pivert et le Forum,
      Merci pour ton code.
      J'ai fait comme ton code, mais cela ne fonctionne pas correctement.
      Si tu peu regarder ce que j'ai oublier de faire.
      Merci
      J'ai renommer les images
      Marcelio
      https://cjoint.com/c/IKtlbkNx81G
      --
      0
      1. cs_Le Pivert Contributeur
        Il faut changer l'index de la comboBox! 

        Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case Is = 1
EffaceImages
copierjanvier
Case Is = 2
EffaceImages
copierfévrier
Case Is = 3
EffaceImages
copiermars
Case Is = 4
EffaceImages
copiertomate
Case Is = 5
EffaceImages
copieravril
End Select
End Sub


        Comme cela

        @+ Le Pivert
        0
    3. marcelio Auteur
      Re,
      Super merci beaucoup @+ Le Pivert de ton aide, cela fonctionne super bien.
      Bon après midi à toi et au forum.
      Marcelio

      --
      0
      2. marcelio Auteur
        Re,
        Encore moi.
        J'ai fait les modifs cela à fonctionner, une fois Excel fermer, et à l'ouverture du fichier impossible de changer de nom ça mouline.
        Je peu plus rien faire.
        Si tu à une nouvelle solution.
        Merci
        Marcelio

        --
        0
      3. marcelio Auteur
        Re,
        Ok super merci pour le lien
        Bonne soirée à toi et au Forum
        Marcelio

        --
        0

        Discussions similaires

        Retrouver l'image originale d'une photo modifiée
        Raven

        10 réponses
        Dechiffrer une image caché
        JACQUE

        1 réponse
        Résolution d'une image 500 pixels largeur
        sassou

        3 réponses