Thema Datum  Von Nutzer Rating
Antwort
Rot Positionierung von Grafik in Powerpoint
27.07.2016 17:51:07 Gast69312
NotSolved
27.07.2016 17:53:47 Gast15123
NotSolved

Ansicht des Beitrags:
Von:
Gast69312
Datum:
27.07.2016 17:51:07
Views:
995
Rating: Antwort:
  Ja
Thema:
Positionierung von Grafik in Powerpoint
Hallo zusammen, ich habe einen Code geschrieben, der mir Ranges aus Excel als Bild in PowerPoint einfügt. Das Problem ist nun, dass mir manchmal (nicht immer!) Fehlermeldungen angezeigt warden und das gewünscht Ergebnis nicht eintritt. Das Problem liegt wohl im letzten Abschnitt "Center Object". Und zwar hat Excel wohl ein Problem mit der Methode "Left". Ein Fehler, der häufig auftritt, ist "Method "Left" of object "ShapeRange" failed". Kann mir da jemand helfen? Der Code lautet: Sub test() Dim ppt As Object Dim iposition As Long Dim osl As slide Dim oLayout As CustomLayout Dim i As Integer Dim myPresentation As Object Dim ppApp As Object Dim MySlideArray As Variant Dim MyRangeArray As Variant Dim x As Long Dim shp As Object Dim PowerPointApp As Object ' Creates new PowerPoint presentation Set ppt = CreateObject("PowerPoint.Application") With ppt .Visible = True .Presentations.Add End With ' Insert 20 blank slides For i = 1 To 20 iposition = i Set oLayout = ppt.ActivePresentation.Designs(1).SlideMaster.CustomLayouts(1) Set osl = ppt.ActivePresentation.Slides.AddSlide(iposition, oLayout) Next i Set oLayout = Nothing Set osl = Nothing Set myPresentation = ppt.ActivePresentation 'List of PPT Slides to Paste to MySlideArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) 'List of Excel Ranges to Copy from MyRangeArray = Array(Tabelle2.Range("B6:J49"), Tabelle2.Range("B51:J61"), _ Tabelle2.Range("B63:J78"), Tabelle4.Range("B6:J49"), Tabelle4.Range("B51:J61"), Tabelle4.Range("B63:J78"), Tabelle6.Range("B6:J49"), _ Tabelle6.Range("B51:J61"), Tabelle6.Range("B63:J78")) 'Loop through Array data For x = LBound(MySlideArray) To UBound(MySlideArray) 'Copy Excel Range MyRangeArray(x).Copy 'Paste to PowerPoint On Error Resume Next Set shp = myPresentation.Slides(MySlideArray(x)).Shapes.PasteSpecial(DataType:=2) Set shp = PowerPointApp.ActiveWindow.Selection.ShapeRange On Error GoTo 0 'Center Object With myPresentation.PageSetup shp.Left = (.SlideWidth \ 2) - (shp.Width \ 2) shp.Top = (.SlideHeight \ 2) - (shp.Height \ 2) End With Next x Debug.Print x End Sub

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
Rot Positionierung von Grafik in Powerpoint
27.07.2016 17:51:07 Gast69312
NotSolved
27.07.2016 17:53:47 Gast15123
NotSolved