excel vba 图片
SubShapeAddress()DimrngAsRangeSetrng=Sheet3.Range("B4:E22")WithSheet3.Shapes("Picture...
Sub ShapeAddress()
Dim rng As Range
Set rng = Sheet3.Range("B4:E22")
With Sheet3.Shapes("Picture 1")
.Rotation = 0
.Select
With Selection
.Top = rng(1).Top + 1
.Left = rng(1).Left + 1
.Width = rng.Width - 0.5
.Height = rng.Height - 0.5
End With
End With
Range("A1").Select
End Sub
其中"Picture 1",代表什么意思??? 展开
Dim rng As Range
Set rng = Sheet3.Range("B4:E22")
With Sheet3.Shapes("Picture 1")
.Rotation = 0
.Select
With Selection
.Top = rng(1).Top + 1
.Left = rng(1).Left + 1
.Width = rng.Width - 0.5
.Height = rng.Height - 0.5
End With
End With
Range("A1").Select
End Sub
其中"Picture 1",代表什么意思??? 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询