|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 宏1()
ActiveSheet.OLEObjects.Add(ClassType:="Paint.Picture", Link:=False, _
DisplayAsIcon:=False).Activate
ActiveSheet.Shapes.Range(Array("Object 3")).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
ActiveSheet.Shapes("Object 3").ScaleWidth 0.798245614, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Object 3").ScaleHeight 0.718061674, msoFalse, _
msoScaleFromTopLeft
End Sub
这是我录制的宏能使用,存在问题1、Object 3每运行一次名称不一样。2、大小不能和选择单元格一致,请老师们给修改或指点一下,谢谢!
|
|