Sujet Précédent Sujet Suivant

Insertion image en vba

Résolu/Fermé
cedric_41 Messages postés 2 Date d'inscription mercredi 24 juin 2015 Statut Membre Dernière intervention 26 juin 2015 - 24 juin 2015 à 20:39
 cedric41 - 3 juil. 2015 à 19:58
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
A voir également:

6 réponses

Réponse 1 / 6
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 juil. 2015 à 15:26
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
Réponse 2 / 6
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
25 juin 2015 à 10:16
Bonjour,

j ai creer une macro vba
Pour pouvoir tenter de répondre, il nous faudrait le code de cette macro.
0
Réponse 3 / 6
cedric_41 Messages postés 2 Date d'inscription mercredi 24 juin 2015 Statut Membre Dernière intervention 26 juin 2015
Modifié par pijaku le 26/06/2015 à 08:29
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
26 juin 2015 à 08:32
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
Réponse 4 / 6
cedric41
27 juin 2015 à 21:19
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
29 juin 2015 à 09:58
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
cedric41 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
2 juil. 2015 à 09:20
bonjour

je suis en version office 2010 ,c est peu etre de la que vient le souci.
0
cedric41 > cedric41
2 juil. 2015 à 10:49
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
2 juil. 2015 à 11:28
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
cedric41
2 juil. 2015 à 17:28
bonjour
comment tu ajoute un controle image ?
svp
0

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

Posez votre question
Réponse 5 / 6
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 juil. 2015 à 10:37
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
cedric41
3 juil. 2015 à 15:21
Bonjour,

je ne sais pas comment insere un controle image en VBA. et ensuite lui mettre l image dedans.
0
Réponse 6 / 6
cedric41
3 juil. 2015 à 19:58
bonjour

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

merci a tous
0