Hi Tamira,
your examples for use of multiple range is both correct. Just choose one of them. But you cannot copy this multiple range directly to Powerpoint. copy each single range instead. Therefore you can use the Areas-property. See here an example I've written in a minute.
Sub CopyMultiRange()
Dim r1 As Range, ppt As Object, rng As Range
Set r1 = ThisWorkbook.Worksheets("sheet1").Range("B12:D13, J12:O13")
Set ppt = GetObject(, "Powerpoint.Application")
For Each rng In r1.Areas
rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ppt.slides(1).Shapes.Paste
Next rng
ppt.slides(1).Shapes(1).Top = 100
ppt.slides(1).Shapes(2).Top = 200
End Sub
Unfortunately I have no powerpoint and cannot test my code. Please see it as proposal for use the areas of multiple-range object. How to use the connection to Powerpoint you should ask another one.
Regards
Mr. K.
|