Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
Excel VBA Shapes Planilha 47 criar comentário imagem ao Clicar
com esse Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como mostrar um comentário especifico ao clicar em determinada uma foto(imagem), isto é, mostrará o comentário especifico feito para aquela imagem, observe que usamos (Application.Propriedade Caller) para chamar o comentário específico. Caso clique novamente na imagem o procedimento ocultará a mensagem especifica dessa imagem. Acredito que um pouco de criatividade dá para se fazer um belo Algum com comentários sobre a foto.
Bons Estudos.
‘//================’
Sub sbx_exibir_comentario_imagem()
vImagem = Application.Caller & “Comentario”
On Error Resume Next
ActiveSheet.Shapes(vImagem).Visible = Not ActiveSheet.Shapes(vImagem).Visible
ShapeParent = Application.Caller
ActiveSheet.Shapes(vImagem).Left = ActiveSheet.Shapes(ShapeParent).Left
ActiveSheet.Shapes(vImagem).Width = ActiveSheet.Shapes(ShapeParent).Width
ActiveSheet.Shapes(vImagem).Top = _
ActiveSheet.Shapes(ShapeParent).Top + ActiveSheet.Shapes(ShapeParent).Height + 2
End Sub
‘//============’ para mostrar o shapes contendo o macro lá na folha de planilha
Sub sbx_ocultar_mostrar_shapes()
If Saber1.Shapes(“sbx_01”).Visible = True Then
Saber1.Shapes(“sbx_01”).Visible = False
Else
Saber1.Shapes(“sbx_01”).Visible = True
End If
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
Compre pelo PagSeguro | Compre pelo PayPal | |
Material Didático: Curso Excel VBA Expert |
Baixe o exemplo de planilha contendo os macros acima: |
Planilha Excel VBA Shapes 47 criar comentário imagem sel |
<<Verifique a Caixa de Itens Excluídos também >> |
Excel VBA Shapes Planilha 47 criar comentário imagem sel