ADQUIRA NOSSO CURSO COMPLETO EXCEL VBA EXPERT
Excel VBA Shapes Planilha 28 imagem autoforma comentário
Com estes macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como modificar ou inserir uma autoforma(Shapes) em um determinado Comentário, alterando sua forma, também vamos aprender como buscar no Path Ativo do Workbook, determina imagem para inserir como imagem de fundo em um comentário.
observe que fizemos o macro abaixo sbx imagem fundo – que busca a imagem com base nos valores 1 ou 2 e insere no fundo de imagem do comentário da célula ativa.. ( Activecell )
‘//======= ‘ Inserir ou modificar comentário autoforma Scroll horizontal
Sub sbx_retangulo_arredondado()
On Error Resume Next
ActiveCell.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
End Sub
‘//========’ Inserir ou modificar comentario aufoForma Horizontal Scroll
Sub sbx_horizontal_scroll()
On Error Resume Next
ActiveCell.Comment.Shape.AutoShapeType = msoShapeHorizontalScroll
End Sub
‘//========’ Inserir ou modificar comentario autoforma Exposão
Sub sbx_explosao()
On Error Resume Next
ActiveCell.Comment.Shape.AutoShapeType = msoShapeExplosion2
End Sub
‘//========’ Inserir ou modificar comentario com auforma Triangulo
Sub sbx_triangulo()
ActiveCell.Comment.Shape.AutoShapeType = msoShapeIsoscelesTriangle
End Sub
‘//========’ Inserir ou modificar comentario com shapes Octagono
Sub sbx_octogono()
ActiveCell.Comment.Shape.AutoShapeType = msoShapeOctagon
End Sub
‘//========’ buscar imagem no diretorio do Workbook Ativo (Path Ativo)
Sub sbx_imagem_de_fundo()
ChDir ActiveWorkbook.Path
On Error Resume Next
If [b21].Value = 1 Then
ActiveCell.Comment.Shape.Fill.UserPicture “collor.jpg”
Else
ActiveCell.Comment.Shape.Fill.UserPicture “figueiredo.jpg”
End If
End Sub
‘//======= ‘ deletando um comentario na célula ativa com indagação msgbox VbYesNo.
Sub sbx_deletar_comentario()
Dim resp As String
If ActiveCell.Comment Is Nothing Then
MsgBox “Nesta célula ativa não existe comentário”, vbCritical, “Escola Saberexcel VBA Estudos”
Else
resp = MsgBox(“deseja deletar esse comentário?”, vbYesNo + vbCritical, “Escola Saberexcel VBA Estudos”)
If resp = 6 Then
ActiveCell.Comment.Delete
End If
End If
End Sub
//======= ‘ mostrar e ou ocultar um determinado shapes, (imagem)
‘aqui estou lhe mostrando o intelissence vb, que mostra a lista de shapes a ser escolhido.
Sub sbx_mostrar_ocultar_shapes()
If Plan1.Shapes(“mso”).Visible = True Then
Plan1.Shapes(“mso”).Visible = False
Else
Plan1.Shapes(“mso”).Visible = True
End If
End Sub
‘//======= ‘ Escola Saberexcel VBA Estudos ‘ ==========’
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: |
 Excel VBA Shapes 28 imagem autoforma comentário |
| <<Download Link: Verifique sua caixa de itens Excluídos também>> |
Excel VBA Shapes 28 imagem autoforma comentário
