Insertion image en vba

Résolu
cedric_41 -  
bonjour,

j ai creer une macro vba qui fonctionne parfaitement, le souci c est que lorsque je change mes image elle change aussi sur ma feuille exel y a t il un moyen de casser le lien entre les image et ma feuille exel.

merci pour vos reponse

6 réponses

  1.  pijaku Modérateur
    Bonjour,

    j ai creer une macro vba
    Pour pouvoir tenter de répondre, il nous faudrait le code de cette macro.
    1. cedric_41 Auteur
      salut pijaku

      voici une partie du code qui insert l image 

      Sheets("fiche").Select
     'Range("A16").Select
     ActiveSheet.Pictures.Insert( _
        "C:\Users\Public\Documents\shared mcamx8\common\reports\IMG\Image #2.bmp"). _
        Select
    Selection.ShapeRange.IncrementLeft 380
    Selection.ShapeRange.IncrementTop 40
    Selection.ShapeRange.ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.IncrementLeft -447
    Selection.ShapeRange.IncrementTop 225
        Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Width = 283.4645669291
    Selection.ShapeRange.Width = 396.8503937008
    Selection.ShapeRange.Width = 340.1574803


      merci de ta reponse.
      1. pijaku Modérateur
        Bonjour,
        Cette ligne de code : 
        ActiveSheet.Pictures.Insert("C:\Users\Public\Documents\shared mcamx8\common\reports\IMG\Image #2.bmp").Select

        insère dans ta feuille fiche l'image qui se trouve ici : C:\Users\Public\Documents\shared mcamx8\common\reports\IMG\Image #2.bmp
        Une fois insérée, selon le code donné ci-dessus, elle ne change pas.
        Il nous faut davantage d'explications...
    2. cedric41
      Bonjour,

      l image s insert correctement mais une fois la feuille sauvegarder, lorsque je veut la reouvrir et que l image en question a etait suprimer du dossier
      "C:\Users\Public\Documents\shared mcamx8\common\reports\IMG\Image #2.bmp",l image ne safiche plus sur la feuille comme si exel avait forcement besoin du lien.
      1. pijaku Modérateur
        Bonjour,

        Chez moi, ton code insère bien une image dans le classeur.
        J'enregistre, je ferme et réouvre ce classeur, l'image est toujours présente.
        Quelque part, ailleurs, dans tes codes VBA, tu dois en avoir un qui supprimes les images...
      2. cedric41
        @pijakubonjour

        je suis en version office 2010 ,c est peu etre de la que vient le souci.
      3. cedric41
        @cedric41bonjour

        chez moi aussi l image s insert bien le soucis c est que si je la suprimme du dossier source , elle n apparait plus sur ma feille exel.
      4. pijaku Modérateur
        Bonjour,

        Exact. Dans ce cas, il me semble, il faut passer par l'ajout d'un contrôle image.
        A vérifier bien sur.
      5. cedric41
        bonjour
        comment tu ajoute un controle image ?
        svp
    3. cs_Le Pivert Contributeur
      Bonjour,

      Ce que veut dire pijaku que je salue, c'est d'aller dans Développeur dans le ruban, Inserer, Image, Mode création, Propriétés et Picture et choisir une image
      1. cedric41
        Bonjour,

        je ne sais pas comment insere un controle image en VBA. et ensuite lui mettre l image dedans.
    5. cs_Le Pivert Contributeur
      Essaie ceci, pour voir si tu a le même problème qu'avec l'ancien code: 

      Dim strImage As String
Dim Sh As Shape
 
Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 75) 'left, top, width, heigth
 
strImage = "C:\chemin image.jpg"
Sh.Fill.UserPicture strImage

      1. cedric41
        bonjour

        Merci beaucoup vous m avez enlevé une grosse epine du pied ca fonctionne parfaitement

        merci a tous

        Discussions similaires

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

        10 réponses