Excel VBA Planilha Shapes imagens em comentarios path ativo 26

Planilha Excel VBA Shapes imagens em comentarios path ativo 26

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

Planilha Excel VBA Shapes imagens em comentários path ativo 26

Neste exemplo de planilha Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como inserir determinas imagens nos Comentários em determinadas células em determinadas colunas na folha de planilha, observe que vamos inserir uma imagem com base no nome inserido na célula, que buscará a imagem no Path(Diretorio) Ativo, isto é o diretório onde esta o Livro(Pasta) Ativa. Bons Estudos. Fiquem com Deus, Expedito Marcondes

Sub sbx_imagem_comentario()
Call sbz_nome_autor ‘chamando o macro que insere o nome do autor dos comentários…
ChDir ActiveWorkbook.Path ‘Retorna um valor Stringque representa o caminho completo para o aplicativo, excluindo o separador final e o nome do aplicativo.
Range(“A2”).Select
Do While ActiveCell <> “”
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=ActiveCell.Value
ActiveCell.Comment.Shape.Fill.UserPicture ActiveCell.Value & “.jpg”
ActiveCell.Comment.Shape.Height = 100
ActiveCell.Comment.Shape.Width = 100
ActiveCell.Comment.Shape.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Shape.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
ActiveCell.Offset(1, 0).Select
Loop
[d1].Select
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Saber1.Shapes(“btTemporizador”).Visible = True
MsgBox “Imagens do Diretório Ativo ” & vbCrLf & _
“Inseridos nos Comentarios com Sucesso!” & vbCrLf & _
“Fique com Deus, Expedito Marcondes”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//======’deletar os comentarios para o teste
Sub sbx_deletar_comentarios_coluna_A()
[a1].Select
Application.EnableEvents = False
Saber1.Shapes(“btTemporizador”).Visible = False
Do While ActiveCell <> “”
ActiveCell.ClearComments
ActiveCell.Offset(1, 0).Select
Loop
[d1].Select
Application.EnableEvents = True
End Sub
‘//=======’ temporizador para mostrar as imagens com intervalo tempo
Sub sby_mostrar_com_temporizador()
[a2].Select
On Error GoTo SBX
Do While ActiveCell <> “”
ActiveCell.Offset(1, 0).Comment.Visible = True
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 0).Comment.Visible = False
Tempo 0.9
Loop
Exit Sub
SBX: MsgBox “Fim da Apresentação!….”, vbInformation, “Escola SaberExcel VBA Estudos®”
[d1].Select
End Sub
‘//=====’ mostrar ou ocultar um shapes com o mesmo macro, sobre o profeta Geisel
Sub sbx_profecia_geisel()
If Saber1.Shapes(“profecia_geisel”).Visible = True Then
Saber1.Shapes(“bt_profecia”).TextFrame2.TextRange.Characters.Text = “Mostrar Profecia Geisel”
Saber1.Shapes(“profecia_geisel”).Visible = False
Else
Saber1.Shapes(“profecia_geisel”).Visible = True
Saber1.Shapes(“bt_profecia”).TextFrame2.TextRange.Characters.Text = “OCULTAR Profecia Geisel”
End If
End Sub
//============’ Nome do Autor nos comentarios
Sub sbz_nome_autor()
‘Expedito Marcondes
‘‘Site…..: http://www.saberexcel.com.br
‘Email…: [email protected]
‘—————————————‘
Dim ws As Worksheet
Dim cmt As Comment
Dim strAntigo As String
Dim strNovo As String
Dim TextoComentario As String
strNovo = “Escola SaberExcel VBA Estudos®”
strAntigo = “Antigo Nome”
Application.UserName = strNovo
For Each ws In ActiveWorkbook.Worksheets
For Each cmt In ws.Comments
TextoComentario = Replace(cmt.Text, strAntigo, strNovo)
cmt.Delete
cmt.Parent.AddComment Text:=TextoComentario
Next cmt
Next ws

End Sub
‘//========’ Função Temporizador usaremos para dar um intervalo de tempo para mostrar as imagens
nos comentários.
Sub Tempo(SbTempo)
Dim VelhoTempo As Variant
If SbTempo < 0.01 Or SbTempo > 300 Then SbTempo = 1
VelhoTempo = Timer
Do
DoEvents
Loop Until Timer – VelhoTempo >= SbTempo
End Sub