Question

我想使用注释框的高宽比与图片尺寸匹配的vba将图片注释附加到excel中的单元格中。以下vba代码有效，但仍有问题。

Sub setPic(ran As Range, URL As String)
    Dim CommentBox As Comment
    Set CommentBox = ran.AddComment
    'Remove Any Default Comment Text
    CommentBox.Text Text:=""

    'Insert The Image and Resize
    CommentBox.Shape.Fill.UserPicture (URL)

    'not like this:
    'CommentBox.Shape.ScaleHeight 6, msoFalse, msoScaleFormTopLeft 
    'CommentBox.Shape.ScaleWidth 4.8, msoFalse, msoScaleFromTopLeft
End Sub

设置图片评论后
我手动尝试过：“右键单击单元格”>“编辑注释”>“右键单击注释框的边框”>“格式注释”>“颜色和线条”选项卡>“颜色”>“填充效果”>“图片”>检查锁定图片的宽高比
单击确定，单击确定

然后再次以格式注释：
..>格式注释>尺寸标签>单击“重置”
点击确定
可以，但是我想要VBA代码。

Answer 1

好像要使用

CommentBox.Shape.LockAspectRatio = msoTrue

如何使用VBA使用图片比例网址创建图片注释

1 个答案: