Discussion :

[Gael_f]

Bonjour à tous,

Avant, toutes choses, merci à vous pour ce forum qui m'a permis jusqu'ici de construire des macros sous word et excel depuis un an sans poser une seule question !

Seulement aujourd'hui, j'ai beau chercher, je ne trouve pas de réponse à mon problème. Je construis actuellement des fiches en grand nombre dans lesquelles je dois insérer automatiquement des images au format png. Jusqu'ici pas de soucis, je le fais de la manière suivante pour une dizaine d'images:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
''Tableau exploitation et effort
 
Dim Tab_exp_eff_final, fichier_Tab_exp_eff_final
fichier_Tab_exp_eff_final = Chemin
Set Tab_exp_eff_final = ActiveDocument.Shapes.AddPicture(FileName:=fichier_Tab_exp_eff_final, LinkToFile:=False, SaveWithDocument:=True)
With Tab_exp_eff_final
    .PictureFormat.CropRight = 1.8
    .PictureFormat.CropBottom = 1.8
    .ConvertToInlineShape
    .WrapFormat.Type = wdWrapBehind
    .RelativeHorizontalPosition = wdRelativeVerticalPositionPage
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .Left = 248.063
    .Top = 406.823
    .Width = 305.8965
    .Height = 127.575

Seulement, une fois toutes mes images insérées comme ceci, je souhaiterais créer une nouvelle macro pour en supprimer certaines (mais pas toutes) qui ont vocation à être modifiées (je modifie les images à partir de scripts R selon les avis de mon boss). Cela m'éviterait que les images s'empilent les unes sur les autres à chaque fois que je relance la macro.

J'ai bien compris que les InlineShape ne peuvent pas être appelées par leur nom donc je ne vois pas comment supprimer uniquement certaines images bien précises.


J'espère avoir été assez clair, merci encore,


Gaël

[Heureux-oli]

Salut,

Je ne pense pas que tu puisses supprimer des images si tu ne peux pas les identifier.

[Gael_f]

OK mais n'existe-t-il pas un moyen de les déclarer à leur création pour pouvoir ensuite les identifier et les supprimer ? Ou alors avec leur position sur le document ?

[Heureux-oli]

Salut,

Les identifer ne sert à rien avec 2010, elles ne peuvent pas avoir de nom.

Leur position dans le document est donné avec leur index, mais pour les Shapes, c'est le point d'accrochage de l'image qui compte.

[Gael_f]

OK merci, je vais creuser cela.