菜鸟自学VBA_One day【Help】

Object:我想批量处理图片、设置图片大小横纵比率全部是70%。
question:
1.当我录制宏的时候、我已经设置过图片大小了。停止录制宏，查看代码发现没有代码 - -！求解~（2007Excel）
2.设置单元框背景颜色，框线。录制的宏可以有代码。


求解答~求VBA自学视频~求代码~ VBA
[解决办法]
这是我录制的，我的是2003

Sub Macro1()

    ActiveSheet.Pictures.Insert( _
        "D:\My Documents\My Pictures\1.jpg"). _
        Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 560.25
    Selection.ShapeRange.Width = 840#
    Selection.ShapeRange.Rotation = 0#
End Sub