返回目录:excel表格制作
你这可不是简单的事情,估计没人免费帮你的。在 淘.宝 上下单找人做,估计也要二百大洋左右
分析:由于Word不能像excel一样多选图片,所以不zhidao能多选图片后统一缩放,所以考虑可以重复多次一样动作的宏功能:
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、宏-运行,可以直接批量缩放图片尺寸,左边为最终效果图。
在excel里的批注里是不可以批量添加图片的,只能一次添加一张,具体步骤如下:来
需要准备的材料分别是:电脑、Excel表格。
1、首先打开需要编辑的Excel表格,右键单击源批注的四边选择打开“设置批注格式”。
2、然后在弹出来的窗口中点击打开“颜色与线条”。
3、然后在弹出来的窗口中点击打开颜色中的“填充颜色”。
4、然后在弹出来的窗口中点击打开图片中的“选zd择图片”。
5、然后点击选择想要的图片,点击打开。
6、然后就可以添加图片了。
修改如下,照e799bee5baa6e79fa5e98193e59b9ee7ad94338片文件夹路径可以通过对话框输入,也可将工作簿放在照片文件夹中,从而不必输入照片文件夹路径。代码通过预插入图片到单元格而获取图片尺寸,并将此用于批注框尺寸的设置。
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
结果图如下:横向图片
纵向图片: