Question

如果我记录宏观。我看见这一法典。

Selection.Copy
ActiveSheet.Shapes.AddShape(, 480.75, 171#, 63#, 63#).Select
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
Application.CutCopyMode = False

当我看一看MonoAutoShapeType的屠杀时,我看不见照相物体。

And if I change any value it gives exception... (, 480.75, 171#, 63#, 63#) the documentation says that these values are top,left,width and height ...

我想书写一种能够制造任何射程的照相物体的方法。

Sub TakePhoto(myRange As String, myPicture As String)

我如何能够做到这一点?

Answer 1

为此:

Sub TakePhoto(rngSource As Excel.Range, rngTarget As Excel.Range)
Dim ws As Excel.Worksheet
Dim shpPicture As Excel.Shape

Set ws = rngTarget.Parent
rngSource.Copy
ws.Pictures.Paste Link:=True
Set shpPicture = ws.Shapes(ws.Shapes.Count)
With shpPicture
    .Top = rngTarget.Top
    .Left = rngTarget.Left
End With
End Sub

要求这样做:

Sub test()
TakePhoto Sheet2.Range("A1:C4"), Sheet1.Range("c5")
End Sub

友情链接