<em>EXCEL</em>批量添加<em>图片批注</em>后怎么让&

步骤/方法

• 选中你要添加批注的文字，比如笔者要百给百度添加一个图片格式的批注，我就选中了百度这几个字

• 接着点击菜单栏上面的 审阅 选项。

• 在审阅选项中，我们点击批注按钮，如图所示

• 在弹度出的下拉菜单中，我们的点击 新建批注。

• 这样就建立了一个版批注，接着点击插入选项。

• 在插入选项中，点击 图片。

• 打开了图片浏览框，我们选择一个图片，笔者选择了百度的logo，然后点击插入。

• 这样在批注中插入了百度的logo。但是图片太大无法显示完全，我们用鼠权标拖动图片四周的四方块，这样就可以改变图的大小。

• 将图片缩小以后就可以看到图片的全貌了。你学会了吗？

修改如下，照片文件夹路径可以通过对话框输入，也可将工作簿放在照片文件夹中，从而不必输入照片文件夹路径。代码通过预插e79fa5e98193e58685e5aeb9338入图片到单元格而获取图片尺寸，并将此用于批注框尺寸的设置。

Sub 插入批注图片()

   Dim cell As Range, fd, t, w As Byte, h As Byte, Lj As String

   Lj = InputBox("请输入JPG格式图片文件所在文件夹的路径：", , ThisWorkbook.Path)  '获取路径,默认为当前文件夹路径

   Selection.ClearComments

   If Selection(1) = "" Then MsgBox "不能选择空白区。", 64, "提示": Exit Sub

   On Error Resume Next

   

   For Each cell In Selection

       ActiveSheet.Pictures.Insert(Lj & "\" & cell.Text & ".jpg").Select

       w = Selection.Width

       h = Selection.Height

       Selection.Delete

       

       With cell.AddComment

         .Visible = True

         .Text Text:=""

         .Shape.Select True

         With Selection.ShapeRange

            .LockAspectRatio = msoFalse

            .Height = h * 3        '此处的3是指放大3倍显示，可自行调整

            .Width = w * 3         '此处的3是指放大3倍显示，可自行调整

            .LockAspectRatio = msoTrue

            .Fill.UserPicture Lj & "\" & cell.Text & ".jpg"

         End With

         cell.Offset(1, 0).Select

        .Visible = False

       End With

   Next

   Exit Sub

End Sub

结果图如下：横向图片

纵向图片：

http://cn.yimg.com/gallery/jokes/200712140857327392245.jpg

　　分析：由于Word不能像excel一样多选图片，所以不能多百选图片后统一度缩放，所以考虑可以重复多次一样动作的宏功能：

　　1、打开视图问-宏-输入一个名字-创建

　　2、输入以下代码，注意替换内有的内答容和尺寸不是下面的5cm可以直接更改。

　　Sub FormatPics()

　　Dim iSha As InlineShape

　　For Each iSha In ActiveDocument.InlineShapes

　　If iSha.Type = wdInlineShapePicture Then

　　iSha.LockAspectRatio = msoFalse '不锁定纵横比专

　　iSha.Width = CentimetersToPoints(5) '宽5CM

　　iSha.Height = CentimetersToPoints(5) '高5CM

　　End If

　　Next

　　End Sub

　　3、宏-运行，可以直接批量缩放图片尺寸，左边为最终属效果图。