Insertion image en vba

Résolu
cedric_41 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
 cedric41 -
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.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    j ai creer une macro vba
    Pour pouvoir tenter de répondre, il nous faudrait le code de cette macro.
    0
  3. cedric_41 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
     
    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.
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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...
      0
  4. 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.
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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...
      0
      1. cedric41 > pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention  
         
        bonjour

        je suis en version office 2010 ,c est peu etre de la que vient le souci.
        0
      2. cedric41 > cedric41
         
        bonjour

        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.
        0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Bonjour,

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

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    0
    1. cedric41
       
      Bonjour,

      je ne sais pas comment insere un controle image en VBA. et ensuite lui mettre l image dedans.
      0
  7. cedric41
     
    bonjour

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

    merci a tous
    0

Discussions similaires

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

10 réponses
manque touche insert sur clavier
hawolz -
Icon -

5 réponses