Paulo_001,

Bom dia!

A área da sua planilha onde estão as figuras estão protegidas...

Olá Wagner!
sim, mas não há senha.

Esqueci de desbloquea-la antes de zipar, mas é só clicar em desbloquer planilha ela não está como senha.

Adiciona as duas macros abaixo, clica com o botão direito no OptionButon e escolha Atribuir Macro e selecione a macro :

Sub Oculta_Imagens()
    ActiveSheet.Pictures.Visible = False ' oculta todas imagens
End Sub

Sub Exibe_Imagens()
    ActiveSheet.Pictures.Visible = True 'exibe todas imagens
End Sub

Mauro,
Muito obrigado pela ajuda!
Uma solução bem simples. Mas como faço para ocultar somente as duas ultimas imagens, deixando apenas a primeira?

Paulo, no seu modelo você tem 3 imagens com os seguintes nomes :
imagem_1
Picture 3, duas com o mesmo nome, você deve ter copiado e colado, por isto os nomes iguais

Então altere o nome da terceira para Picture 4 e atribua a macro abaixo aos dois optionbutton :

 Sub Hide_Show_Figuras()
    Dim sRg
    
    sRg = Range("Z3").Value
        
        Select Case sRg
        Case 1
            'ActiveSheet.Shapes("imagem_1").Visible = True
            ActiveSheet.Shapes("Picture 3").Visible = False
            ActiveSheet.Shapes("Picture 4").Visible = False
             
        Case 2
            'ActiveSheet.Shapes("imagem_1").Visible = True
            ActiveSheet.Shapes("Picture 3").Visible = True
            ActiveSheet.Shapes("Picture 4").Visible = True
             
        End Select
         
End Sub

[]s

Perfeito Mauro!
Muito obrigado pela ajuda.