Thema Datum  Von Nutzer Rating
Antwort
25.09.2019 15:35:50 Fabian
NotSolved
Blau Excel Inhalte in PowerPoint Vorlage übertragen
 25.09.2019 16:07:19 Mase
NotSolved
25.09.2019 16:17:42 Fabian
NotSolved
25.09.2019 20:32:16 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
25.09.2019 16:07:19		 Views:
801		 Rating:
     
Antwort:
  Ja
Thema:
Excel Inhalte in PowerPoint Vorlage übertragen
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Mahlzeit,
 
Vorschlag unter Verwendung der IntelliSense (EarlyBinding), um das entwickeln in der Anfangszeit zu vereinfachen.
Umschreiben als LateBinding zur Weitergabe des Codes kannste im fertigen zustand immernoch:
 
 
 
Option Explicit
 
Sub openPPT()
    'EarlyBinding um IntelliSense zu benutzen
    'Hinweis:
    'Im VB-Editor muss unter Extras -> Verweise -> auf Microsoft PowerPoint verwiesen werden
    Dim appPPT As PowerPoint.Application
    Dim sPPTfile As String
    Dim wkb As Workbook
    Dim wks As Worksheet
    '
    On Error GoTo err
    '
    Set wkb = ThisWorkbook
    Set wks = wkb.Worksheets(1) ' <--- Referenz auf das erste Tabellenblatt
    Set appPPT = New PowerPoint.Application
    '
    sPPTfile = "c:\Pfad\PowerPoint.pptx"
    '
    With appPPT
        .OpenThemeFile (sPPTfile) 'öffnen der Datei
        .Visible = msoTrue 'Anzeigen der Datei
        'je nachdem was für Objekte in der PPT sind,
        'ab hier die Wertzuweisung Deiner Excel-Zelle
         
        'objObjekte = wks.Range("").value2
         
    End With
    '
     
 
err:
If err.Number <> 0 Then
    MsgBox err.Number & vbCrLf & err.Description
End If
'
Set appPPT = Nothing
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
25.09.2019 15:35:50 Fabian
NotSolved
Blau Excel Inhalte in PowerPoint Vorlage übertragen
 25.09.2019 16:07:19 Mase
NotSolved
25.09.2019 16:17:42 Fabian
NotSolved
25.09.2019 20:32:16 Mase
NotSolved