entfernen und fügen Sie Shapes in Word

Question

Ich mag eine bestehende Form in Word (Kopf- und Fußzeile) mit einem Knopf entfernen und hinzufügen

Aber ich kann die Form nicht auswählen, um die sichtbare Eigenschaft zu ändern.

Wie kann ich das tun? Ich kann den Namen der Form in Word

nicht herausfinden Danke für Ihre Hilfe!

Sub LogoChangeVisible() 
' 
' Removes and adds the logo from Header and Footer 
' 
' 
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 

Selection.HeaderFooter.Shapes("Picture from Header").Select 

If Selection.ShapeRange.Visible = msoTrue Then 
Selection.ShapeRange.Visible = msoFalse 
Selection.HeaderFooter.Shapes("Picture from Footer").Select 
Selection.ShapeRange.Visible = msoFalse 

ElseIf Selection.ShapeRange.Visible = msoFalse Then 
Selection.ShapeRange.Visible = msoTrue 
Selection.HeaderFooter.Shapes("Picture from Footer").Select 
Selection.ShapeRange.Visible = msoTrue 
End If 

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 

End Sub 

Answer 1

Wenn Sie etwas hinzufügen, wie folgt aus:

For Each s In Selection.HeaderFooter.Shapes 
    Debug.Print s.Name 
Next 

Dann werden Sie die Namen in der Debug-Fenster. Ein anderer Ansatz besteht darin, die Namen zu ignorieren und statt dessen nach Zahlen zu suchen:

Selection.HeaderFooter.Shapes(1)...