Word锁定页眉中客户Logo显示隐藏的VBA代码问题求助

我有一份带锁定页眉页脚的Word文档，通过密码保护的Userform管控，防止未授权用户修改版本号等信息。现在需要根据客户切换页眉中的图片，打算用选项组让授权人员选择要显示的客户Logo，隐藏其余图片。所有图片都设为「浮于文字上方」，已通过「选择窗格」重命名为picCustomer1、picCustomer2等，但试了三段VBA代码都没达到预期效果（和Excel操作逻辑不一样）：

代码1：尝试显示所有图片（无效果） #

Sub ShowAllPictures()
  Dim nResponse As Integer
 
  nResponse = MsgBox("Do you want to show all pictures?", 4, "Show pictures")
 
  If nResponse = 6 Then
    With ActiveWindow.View
      If .ShowPicturePlaceHolders = True Or .ShowDrawings = False Then
      .ShowPicturePlaceHolders = False
      .ShowDrawings = True
      Else
        MsgBox ("No picture is hidden.")
      End If
    End With
 End If ' 无法取消隐藏任何图片
End Sub

代码2：尝试切换指定图片显示状态（提示找不到指定名称的项目） #

Sub showhide()
 
  If ActiveDocument.Shapes("picOcado").Visible = False Then ' 提示：找不到指定名称的项目
    ActiveDocument.Shapes("picOcado").Visible = True
      Else
    ActiveDocument.Shapes("picOcado").Visible = False
  End If
End Sub

代码3：尝试调整图片高度（类型不匹配/找不到指定项目） #

Sub showhidePic()
 ActiveDocument.InlineShapes("picOcado").Height = 1 ' 提示：类型不匹配错误
 'ActiveDocument.Shapes("picOcado").Height = 1 ' 提示：找不到指定名称的项目
 
End Sub

附选择窗格内容：截图中显示的图片名称包括picOcado、picAmazon等。

内容的提问来源于stack exchange，提问作者Lanser