検証物マクロのVBA

最新推荐文章于 2024-10-15 11:07:13 发布

原创最新推荐文章于 2024-10-15 11:07:13 发布 · 495 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #keyboard #2010

技术专栏收录该内容

13 篇文章

订阅专栏

Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2010/4/13 ユーザー名 : wanghf
'
' Keyboard Shortcut: Ctrl+z
'
    ActiveSheet.Paste
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 542.25
    Selection.ShapeRange.Width = 720#
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 400.5
    Selection.ShapeRange.Width = 531.75
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.08, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ZOrder msoSendToBack
End Sub