Thema Datum  Von Nutzer Rating
Antwort
22.07.2021 15:49:30 Tamira Franceschetti
NotSolved
Blau Select Multiple Range for PowerPoint
 22.07.2021 18:32:00 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
22.07.2021 18:32:00		 Views:
460		 Rating:
     
Antwort:
  Ja
Thema:
Select Multiple Range for PowerPoint

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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.07.2021 15:49:30 Tamira Franceschetti
NotSolved
Blau Select Multiple Range for PowerPoint
 22.07.2021 18:32:00 xlKing
NotSolved