Bom dia!!

Já tentou algo desse tipo...?

Sub Teste()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
  pic.Borders.OutsideLineStyle = wdLineStyleSingle
  pic.Borders.OutsideLineWidth = wdLineWidth600pt
Next
End Sub

Caje, uma sugestão sem precisar de macros, uma vez que ao clicar na imagem vai para a planilha especifica e na mesma tem uma cópia das 3 imagens, porque já não deixa a Imagem referente a Plan2 já formatada, ou com tamanho maior, ou as celulas em volta com outra cor, assim não precisara de macro para formatar a imagem.

Mas se por algum outro motivo não mencionado em seu post você precise de macros, segue uma que altera o tamanho da figura, para isto na Plan2 de o nome a figura que representa esta planilha como : "sImgPlan2", depois clique com o botão direito na aba plan2, escolha exibir código e cole as instruções abaixo :

Private Sub Worksheet_Activate()
    Call AumentaImagem
End Sub

Private Sub Worksheet_Deactivate()
    Call DiminuiImagem
End Sub

Sub AumentaImagem()
    
    With Worksheets("Plan2").Shapes("sImgPlan2")
       .ScaleWidth 1.64, msoFalse, msoScaleFromTopLeft
       .ScaleHeight 1.645, msoFalse, msoScaleFromTopLeft
    End With
    
End Sub

Sub DiminuiImagem()

    With Worksheets("Plan2").Shapes("sImgPlan2")
        .ScaleWidth 0.82, msoFalse, msoScaleFromTopLeft
        .ScaleHeight 0.82, msoFalse, msoScaleFromTopLeft
    End With
    
End Sub

Você pode alterar as propriedades do Shape, veja na ajuda do VBA e encontrara outras.

De uma olhada no link abaixo tambem:
Criar macro para aumentar o tamanho da imagem quando clicar
http://info.abril.com.br/forum/viewtopi ... 01&t=14816

[]s

Boa Tarde Alexandre.

Fico grato pelo retorno.

Mas ainda estou com dificuldades pois não sei manipular figuras. Quando rodo o código ocorre o seguinte erro " Tipo definido pelo usuário não foi definido".

Agradeceria se pudesse esclarecer algumas duvidas como Dim pic As InlineShape devo substituir pelo nome da figura que quero destacar ?

Preciso declarar uma variável para cada figura ?Ex para cada figura Dim pic As InlineShape,Dim pic2 As InlineShape,Dim pic3 As InlineShape

Nesse trecho do código

For Each pic In ActiveDocument.InlineShapes
  pic.Borders.OutsideLineStyle = wdLineStyleSingle
  pic.Borders.OutsideLineWidth = wdLineWidth600pt
Next

Ele irá inserir a borda nas 3 figuras ou apenas na figura que representa a planilha ?

Se puder tirar essas duvidas ajudaria muito .

Mauro Coutinho.

Excelente sugestão a sua primeira dica fica simples e funcional . Vou estudar a segunda opção para ver como fica animação.

Obrigado Mauro Coutinho.