floatingactionbutton图片调整大小_Word/Excel 统一调整图片大小

1. Word

Sub 统一图片尺寸()
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Width = 415.2755905512
ActiveDocument.InlineShapes(i).Height = 228.7559055118
Next i
MsgBox "OK!"
End Sub

打开需要统一尺寸的word表 -》视图-》宏-》查看宏-》创建

弹出代码块的对话框，将上面的代码贴到对应的project里面，运行。

上面代码的ActiveDocument.InlineShapes.Count表示文件中所有图片数量，For i = 1 To ActiveDocument.InlineShapes.Count 表示修改文件中的所有图片。如果选择修改2到10张图片，可以改为For i=2 To 10。Width和Height的尺寸可以自己给，也可以通过录制宏得到相应的精确数值。

2. Excel

打开excel -》开发工具-》Visual Basic

在VBAproject中找到需要修改的表所在的sheet表。把代码粘贴运行。代码1,2,3,4都是类似的。代码1和2是修改所有的图表，代码3和4可以通过改变i的范围修改不同的图表。

代码1：

Sub 统一图标尺寸1()
'
Set mySheet = ActiveSheet
For Each S In mySheet.ChartObjects
    S.Height = 228.7559055118
    S.Width = 415.2755905512
Next S
MsgBox "OK!"
End Sub

代码2：

Sub 统一图标尺寸2()
For Each S In ActiveSheet.ChartObjects
    S.Height = 228.7559055118
    S.Width = 415.2755905512
Next S
MsgBox "OK!"
End Sub

代码3：

Sub 统一图标尺寸3()
For i = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects.Height = 228.7559055118
    ActiveSheet.ChartObjects.Width = 415.2755905512
Next i
MsgBox "OK!"
End Sub

代码4：

Sub 统一图标尺寸4()
For i = 2 To 3
    ActiveSheet.ChartObjects.Height = 228.7559055118
    ActiveSheet.ChartObjects.Width = 415.2755905512
Next i
MsgBox "OK!"
End Sub