Insertion image en vba [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
mercredi 24 juin 2015
Statut
Membre
Dernière intervention
26 juin 2015
-
 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

Messages postés
7269
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 février 2021
616
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
2 574
Bonjour,

j ai creer une macro vba
Pour pouvoir tenter de répondre, il nous faudrait le code de cette macro.
Messages postés
2
Date d'inscription
mercredi 24 juin 2015
Statut
Membre
Dernière intervention
26 juin 2015

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.
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
2 574
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...
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.
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
2 574
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...
>
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021

bonjour

je suis en version office 2010 ,c est peu etre de la que vient le souci.
> 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.
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
2 574
Bonjour,

Exact. Dans ce cas, il me semble, il faut passer par l'ajout d'un contrôle image.
A vérifier bien sur.
bonjour
comment tu ajoute un controle image ?
svp
Messages postés
7269
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 février 2021
616
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
Bonjour,

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

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

merci a tous