我希望将存储在剪贴板中的图像放置到Excel Spreadsee中的特定位置

Question

我正在使用Microsoft项目作为图像源，并希望粘贴到Excel工作簿中指定工作表上的特定位置。

sub CreateImageAndPaste（）

Dim EStart作为字符串，LFin作为字符串EStart = ActiveProject.StatusDate-30LFin = Tsk.Finish + 30

...

在MS Project中创建视图，过滤器和表格并应用

....Application.Pane关闭MSProject.CalculateAllApplication.EditCopyPicture对象：= False，ForPrinter：= 0，SelectedRows：= 0，FromDate：=最早开始，ToDate：= LFin，ScaleOption：= pjCopyPictureShowOptions，MaxImageHeight：=-1＃，MaxImageWidth：=-1＃，MeasurementUnits：= 2

        with xlsheet
            .Activate
            .Cells(1, 1) = t
            DoEvents
            .Paste
            DoEvents
        End With

此代码段非常适合复制/粘贴所需的图像。但是，该图像粘贴到活动工作表的单元格A1中。我希望左上角在单元格A3中。如何才能做到这一点？我已经研究了网络，找不到使用EditCopy的图像的示例预先感谢。

Answer 1

以这种方式尝试，请：

 With xlsheet
    .Activate
    .Cells(1, 1) = t
    .Paste
    Selection.top = .Range("A3").top
    Selection.left = .Range("A3").left
 End With