Office中国论坛/Access中国论坛

标题: 哪位大神帮帮忙看看这个代码 [打印本页]

作者: 。。。。。。 时间: 2015-5-27 16:18
标题: 哪位大神帮帮忙看看这个代码
我想知道这套代码里  哪一句是调整图片大小  哪一句是打印因为不太懂所以不敢乱改。。。

Application.Calculation = xlManual          '不自动计算
If MsgBox("您确定要这样做吗？！", 4 + 64, "系统提示") = vbYes Then
Dim MyPath$, MyName$, sh As Worksheet
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls")
Application.ScreenUpdating = False
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
      With GetObject(MyPath & MyName)
         For Each sh In .Sheets
                     sh.Activate
                     Range("A21

33").Select
                     ActiveSheet.Pictures.Insert("F:\材质单专用\材质单专用.png").Select
                     ActiveWindow.SmallScroll Down:=9
                     Selection.ShapeRange.IncrementTop 0.75
                     Range("N34").Select
         Next
         Windows(.Name).Visible = True
            Application.PrintCommunication = True
            Selection.PrintOut Copies:=1, Collate:=True
         .Close True
      End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "恭喜，所有工作簿打印完成！"
End If
End Sub

作者: roych 时间: 2015-5-27 16:36
这一句是打印：
Selection.PrintOut Copies:=1, Collate:=True
2003版本的话，可以看看这个帖子（有评论说，2007版以上不适用。）
http://www.office-cn.net/thread-96744-1-1.html
如果看不懂代码，可以参考这个：
http://www.office-cn.net/thread-108062-1-1.html

作者: 。。。。。。 时间: 2015-5-27 16:54
好的~~~

作者: 。。。。。。 时间: 2015-5-27 17:04

roych 发表于 2015-5-27 16:36
这一句是打印：
Selection.PrintOut Copies:=1, Collate:=True
2003版本的话，可以看看这个帖子（有评论 ...

我看了看这两个帖子。。。。。我现在想知道关于调整图片大小的语句是哪个。。。我现在需要对图片进行批量调整大小。。。。。。不是同一个表里的图片、、

作者: roych 时间: 2015-5-27 17:55

。。。。。。发表于 2015-5-27 17:04
我看了看这两个帖子。。。。。我现在想知道关于调整图片大小的语句是哪个。。。我现在需要对图片进行 ...

Selection.ShapeRange.IncrementTop 0.75
——调整至原先尺寸的75%

作者: 。。。。。。 时间: 2015-5-28 21:09

roych 发表于 2015-5-27 17:55
Selection.ShapeRange.IncrementTop 0.75
——调整至原先尺寸的75%

我弄懂了谢谢~~

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)