削除し、Wordの

Question

私は削除して、ボタン

でWord（ヘッダーとフッター）内の既存の形状を追加したい

に図形を追加しかし、私は、visibleプロパティを変更する図形を選択することはできません。

どうすればいいですか？私は単語の形の名前を理解することができません

あなたの助けをありがとう！

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

あなたはこのようなものを追加した場合：

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

を次に、あなたのデバッグウィンドウで名前を取得しますが。もう1つの方法は、名前を無視して数字を使用することです。

Selection.HeaderFooter.Shapes(1)...