Discussion :

[fredorik10]

Bonjour,

Dans un document word, dans lequel il y a plein d'image importées depuis excel, ces image sont dans des cadres numérotés par des signets.

Je souhaiterais pouvoir supprimer que les image et pas les cadres et les signets, mais je ne sais pas comment faire:

j'ai essayé:

Code :

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

1
2
3
4
5
6
Sub suppression_des_graphiques()
  Dim A As Shape
  For Each A In ThisDocument.Shapes
    A.Delete
  Next
End Sub

Qui supprime Tout petit à petit.

Sinon, je pensais copier tous les cadres et signets, supprimer les images et coller mais je ne sais pas comment... Donc si vous avez une idée, Merci

[fredorik10]

J'ai aussi essayé d'enregistrer une macro:

Je sélectionne le graphique a sélectionner et je le supprimer.
Mais quand je lance la macro, ça supprime tout le cadre et le graphique.

ca fait ça:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
''
    ActiveDocument.Shapes.Range(Array("Rectangle 1091")).Select
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.TypeBackspace
End Sub

ça supprime le rectangle

[fredorik10]

Autre question, autre essais;

Code :

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

ThisDocument.Bookmarks("ChartReport1").Copy

Pourquoi cela ne fonctionne pas ? "erreur de compilation..."

Cordialement