熊以烈吧 关注:37贴子:1,219
  • 9回复贴,共1

用word统一图片大小

只看楼主收藏回复

Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 245 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 170 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 245 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 170 '设置图片宽度 300px
Next n
End Sub


1楼2012-03-04 14:33回复


    IP属地:广东2楼2013-04-11 15:31
    回复
      这个side是针对游戏王的卡,卡的大小比实际的要小


      3楼2013-05-01 13:48
      回复
        ding


        IP属地:广东4楼2013-07-05 12:14
        收起回复
          卧槽,我要的是操作,你给我程序作甚?还能不能愉快地虐你了......


          IP属地:广东5楼2014-04-28 17:53
          收起回复
            1,打开word
            2,art+f8
            3,新建宏,把程序发上去
            4,运行
            @怪蜀黍峰


            6楼2014-04-29 08:55
            回复
              了解了。那么,这尺寸用扑克牌作为卡底可行不?


              IP属地:广东7楼2014-04-29 11:40
              收起回复