Excel VBA Planilha Shapes 47 criar comentário imagem ao Clicar

22 de maio de 2014 [email protected] 0 Comentários

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

Planilha Excel VBA Shapes 47 criar comentario imagem ao Clicar

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

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.