哪位大神帮帮忙看看这个代码

。。。。。。

我想知道这套代码里  哪一句是调整图片大小  哪一句是打印   因为不太懂 所以不敢乱改。。。





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("A2133").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

这一句是打印：
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

。。。。。。

好的~~~

。。。。。。

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

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

roych

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

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

。。。。。。

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

我弄懂了  谢谢~~