Скопируйте диапазоны Excel на тот же слайд в PowerPoint, что и соседние изображения.

Question

Сначала мой источник выглядит так:

Я хочу 2 поддиапазона (скажем, "A3: C6" и "A8: C11 ") для наклеивания на один слайд PowerPoint бок о бок. Это для одного листа. Есть 6 таких листов с одинаковым диапазоном.

Я узнал, как использовать свойство PageSetup для изменения размеров объекта ( код размещен здесь ), но я не могу написать for l oop для вставки каждого элемента -расположить к каждому углу слайда. И распространите это for l oop на все 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