insertion image en vba Résolu/Fermé

Question

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

pijaku · Answer

Bonjour,

j ai creer une macro vba
Pour pouvoir tenter de répondre, il nous faudrait le code de cette macro.

cedric_41 · Answer

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.

cedric41 · Answer

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.

cs_Le Pivert · Answer

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

cs_Le Pivert · Answer

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

cedric41 · Answer

bonjour

Merci beaucoup vous m avez enlevé une grosse epine du pied ca fonctionne parfaitement

merci a tous

Insertion image en vba

6 réponses