插入图片到批注vba代码

要在批注中插入图片，可以通过VBA代码实现。具体步骤如下：

1. 定位需要插入图片的批注。可以使用以下代码获取当前选中的批注对象：

Set cmt = ActiveDocument.Comments(1)

其中，Comments(1)表示获取第一个批注对象。

2. 创建InlineShape对象，用于插入图片。可以使用以下代码创建一个InlineShape对象：

Set ilshp = cmt.Range.InlineShapes.AddPicture("C:\image.jpg")

其中，AddPicture函数可以插入指定路径的图片。如果需要调整图片大小，则需要添加额外的代码。

3. 保存并关闭文档。最后，需要保存文档并关闭。

完整的VBA代码如下：

Sub InsertPictureInComment()
    Dim cmt As Comment
    Dim ilshp As InlineShape
    
    Set cmt = ActiveDocument.Comments(1)
    Set ilshp = cmt.Range.InlineShapes.AddPicture("C:\image.jpg")
    
    '需要调整图片大小的话，可以使用以下代码
    'ilshp.Width = 100
    'ilshp.Height = 100
    
    ActiveDocument.Save
    ActiveDocument.Close
End Sub

需要注意的是，这段代码中的路径需要替换为实际图片的路径。另外，由于需要关闭文档，建议先对文档进行备份。