首页 →文档下载
word常用宏命令
以下为《word常用宏命令》的无排版文字预览，完整内容请下载
码中单位厘米
（1）设置固定大小n厘米：
Sub resetImgSize() Dim iShape As InlineShape For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoTrue iShape.Height = CentimetersToPoints(n) iShape.Width = CentimetersToPoints(n) Next End Sub
（2）等比例缩放n倍：
Sub resetImgSize()
Dim imgHeight
Dim imgWidth Dim i 内容过长，仅展示头部和尾部部分文字预览，全文请查看图片预览。 Dim imgHeight
Dim imgWidth Dim iShape As InlineShape For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoTrue
imgHeight = iShape.Height imgWidth = iShape.Width
?
iShape.Height = CentimetersToPoints(n?* imgHeight / imgWidth) iShape.Width = CentimetersToPoints(n) Next End Sub
[文章尾部最后300字内容到此结束,中间部分内容请查看底下的图片预览]
以上为《word常用宏命令》的无排版文字预览，完整内容请下载
word常用宏命令由用户“cordor2”分享发布，转载请注明出处XXXXX猜你喜欢
© 2014 {$sysname}