Excel - Macro VBA - Inserir comentário com imagem em tamanho original

[lab.lcf]

Olá pessoal, tudo certo.

Estou com uma planilha onde preciso inserir muitas imagens no comentário e estou conseguindo fazer isso a partir de um macro, o problema é que a imagem não vem no tamanho certo. Teria algum macro que consegue inserir um comentário com imagem em tamanho original ?

O código que estou usando é o seguinte:

------------------------------

Sub AddPicturesToComments()

Dim HasCom

Dim pict As String

Dim Ans As Integer

Set HasCom = ActiveCell.Comment

If Not HasCom Is Nothing Then ActiveCell.Comment.Delete

Set HasCom = Nothing

GetPict:

pict = Application.GetOpenFilename(ImgFileFormat)

'Note you can load in, almost any file format

If pict = "False" Then End

Ans = MsgBox("Open : " & pict, vbYesNo + vbExclamation, "Use this Picture?")

If Ans = vbNo Then GoTo GetPict

With ActiveCell

.AddComment

.Comment.Visible = False

.Comment.Shape.Fill.Transparency = 0#

.Comment.Shape.Fill.UserPicture pict

End With

End Sub

-------------------

Valeu

[Visitante]

Se você não conseguir um comando que leia as dimensões originais da imagem, uma forma de contornar seria estabelecer via macro as dimensões da caixa do comentário. Se quiser experimentar acrescente as linhas em vermelho ao seu código (altere as dimensões e vela os resultados):

...
.Comment.Shape.Fill.UserPicture pict
[COLOR="Red"].Comment.Shape.Height = 200[/COLOR] [COLOR="SeaGreen"]' >> medida da altura[/COLOR]
[COLOR="Red"].Comment.Shape.Width = 300[/COLOR] [COLOR="SeaGreen"]' >> medida da largura[/COLOR]
End With