Re: VBA Comment formatting

[ROBERTO B FILHO]

Re: VBA Comment formatting

[QUOTE = ed.ayers315; 2981660] Oi Worf,

Obrigado pela resposta e pelo código.

Eu precisei modificá-lo um pouco para obter a imagem do comentário para ajustar a altura da linha da célula ativa.

Obrigado e tenha um bom e feliz ano novo !!! [/QUOTE]

Sub INSERT_COMMENT_PICTURE () 
' 
' INSERT_COMMENT_PICTURE Macro 
Esmagar HasCom, Pict $, Ans%, p Como Objeto, t #, L #, w #, h # 
 
Definir HasCom = ActiveCell.Comment 
Se Não HasCom Não é Nada, então ActiveCell.Comment .Delete 
Set HasCom = Nada 
 
GetPict: 
Pict = Application.GetOpenFilename 
'Nota você pode carregar, quase qualquer formato de arquivo 
If Pict = "False" Then End
 
Ans = MsgBox ("Abrir:" & Pict, vbYesNo + vbExclamation, "Usar esta imagem?") 
 
Se Ans = vbNo Então GoTo GetPict 
Set p = Imagem flutuante temporária de ActiveSheet.Pictures.Insert (Pict) ' 
Com ActiveCell 
    t = .Top 
    L = .Left 
    w =. Offset (0, 1) .Left - .Left 
    L = L + w / 2 - p.Width / 2 
    Se L <1 Então, L = 1 
    h = .Offset (1, 0) .Top - .Top 
    t = t + h / 2 - p.Altura / 2 
    Se t <1 Então t = 1 
    .AddComment 
    .Comment.Visible = True 
 
        Com .Comment.Shape 
         .LockAspectRatio = msoTrue 
        .Height = ActiveCell.RowHeight - 10 'faça o tamanho do comentário, assim, o tamanho da imagem é menor que a altura da linha ativa
        .LockAspectRatio = msoTrue 
        .Fill.Transparency = 0 # 
        .Fill.UserPicture picturefile: = Pict. 
        Top = t 
        .Left = L 
       End Com 
Fim Com 
p.Delete 
Set p = Nada 
End Sub

 

[Worf]

Re: VBA Comment formatting

Olá Roberto

Você precisa de alguma ajuda?