怎样使用VBA添加图片背景批注?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 插入图片标注()

 

    Dim pizhu, pic As String

 

    Set pizhu=ActiveCell.Comment

 

    If Not pizhu Is Nothing Then ActiveCell.Comment.Delete '已有批注则删除批注

 

    Set pizhu=Nothing                               '释放变量

 

    pic=Application.GetOpenFilename(ImgFileformat)  '提取图片文件

 

    If pic="False" Then End                        '选择取消则退出程序

 

    With ActiveCell

 

      .AddComment                                  '添加批注

 

      .Comment.Visible=False                       '批注不可见

 

      .Comment.Shape.Fill.Transparency=0#             '批注不透明

 

      .Comment.Shape.Fill.UserPicture pic               '填充图片

 

      .Comment.Shape.LockAspectRatio=msoTrue          '设定图片透明度

 

      .Comment.Shape.Height=30#                     '设定批注高度为30

 

    End With

 

    ActiveCell.Select

 

    '设置图片比例，高与宽之比为3∶4

 

    ActiveCell.Comment.Shape.ScaleWidth 3, msoFalse, msoScaleFromTopLeft

 

    ActiveCell.Comment.Shape.ScaleHeight 4, msoFalse, msoScaleFromTopLeft

 

End Sub

5、选择照片，并单击“确定”按钮返回工作表，单元格A3即已完成图片批注的插入