时间戳

首页 > 解决方案 > 如何使用 vba 创建带有图片比例 url 的图片评论

excel - 如何使用 vba 创建带有图片比例 url 的图片评论

问题描述

我想使用 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代码。

标签： excelvba

解决方案

好像你想使用

CommentBox.Shape.LockAspectRatio = msoTrue

推荐阅读