将excel范围作为相邻图片复制到powerpoint中的同一张幻灯片上

Question

首先，我的源码是这样的：

​

​

我希望两个子区域(比方说"A3:C6“和"A8:C11")并排粘贴在一个powerpoint幻灯片上。这是针对一个工作表的。有6张这样的纸，都有相同的范围。

我学习了如何使用PageSetup属性来更改对象尺寸(code posted here)，但我不能编写for循环来将每个子范围粘贴到幻灯片的每个角落。并将该for循环扩展到我的工作簿中的所有6个工作表。有谁能帮帮我吗？

Answer 1

这是一个通用的解决方案:您必须在下面的mySheet数组中添加工作表名称，还必须在下面的myRange数组中添加范围名称：

Sub stackOverflow()

Dim myRange(1 To 12) As String
Dim mySheet(1 To 6) As Worksheet

myRange(1) = "A3:C6"
''Define all ranges like above line
Set mySheet(1) = ThisWorkbook.Worksheets("Sheet1")
''Define all sheets like above line
j = 1
For i = 1 To 6
    mySheet(i).range(myRange(j)).Copy
    ''code to paste range in powerpoint
    j = j + 1
    mySheet(i).range(myRange(j)).Copy
    ''code to paste range in powerpoint
    j = j + 1
Next i
End Sub