Question

如果我录制宏。我看到了这段代码。

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

当我看到MsoAutoShapeType输入时，我看不到相机对象。

如果我更改任何值，它会给出异常......（，480.75,171＃，63＃，63＃）文档说这些值是top，left，width和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

如何使用Shapes.AddShape方法添加Camera Object

1 个答案: