Format Comment using VBA

[Eric Strobel]

I currently am able to use vba to comment a picture I have rooted in a specific cell, but am having trouble sizing it properly. My current code is below:

Sub Comment()

Set rng = ActiveSheet.Cells(9, 1)
rng.AddComment
rng.Comment.Text Text:=""
rng.Comment.Shape.Fill.UserPicture (Sheets("Metrics").Range("B31"))
rng.Comment.ShapeRange.ScaleWidth = Sheets("Metrics").Range("I44")
rng.Comment.ShapeRange.ScaleHeight = Sheets("Metrics").Range("K44")


End Sub

As stated prior, the image with root in B31 is inserted without any issues, but I can't get the comment to scale by the values in cells I44 and K44.
Any help would be appreciated, as I am not really sure what I am doing wrong. Thanks in advance,

Eric

 

[Domenic]

Try...

Rng.Comment.Shape.ScaleWidth Factor:=Sheets("Metrics").Range("I44"), RelativeToOriginalSize:=msoFalse, Scale:=msoScaleFromTopLeft
Rng.Comment.Shape.ScaleHeight Factor:=Sheets("Metrics").Range("K44"), RelativeToOriginalSize:=msoFalse, Scale:=msoScaleFromTopLeft

Hope this helps!

 

[Eric Strobel]

Works perfect, thank you very much!