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
cedric41 - 3 juil. 2015 à 19:58
A voir également:
- Vba insert image
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Recherche par image - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Image iso - Guide
- Faststone image viewer - Télécharger - Visionnage & Diaporama
6 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
3 juil. 2015 à 15:26
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
25 juin 2015 à 10:16
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.
j ai creer une macro vba
Pour pouvoir tenter de répondre, il nous faudrait le code de cette macro.
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
Modifié par pijaku le 26/06/2015 à 08:29
salut pijaku
voici une partie du code qui insert l image
merci de ta reponse.
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.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
26 juin 2015 à 08:32
26 juin 2015 à 08:32
Bonjour,
Cette ligne de code :
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...
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.
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.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
29 juin 2015 à 09:58
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...
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...
cedric41
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 juil. 2015 à 09:20
2 juil. 2015 à 09:20
bonjour
je suis en version office 2010 ,c est peu etre de la que vient le souci.
je suis en version office 2010 ,c est peu etre de la que vient le souci.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
2 juil. 2015 à 11:28
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.
Exact. Dans ce cas, il me semble, il faut passer par l'ajout d'un contrôle image.
A vérifier bien sur.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
3 juil. 2015 à 10:37
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
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