Hallo liebe Comunity!
Ich hab mich gerade hier registriert, weil ich Hilfe brauche
Und zwar:
Ich soll für die Arbeit eine Excel Datei anfertigen, in der man Daten einträgt und die dann danaben ein Diagramm aus den Daten erstellt. Soweit - fertig.
Dann soll da ein Knopf hin, der bei Betätigung Powerpoint öffnet, eine neue Präsi erstellt und auf die erste Seite das Diagramm packt. Ebenfalls - bereits geschafft.
Jetzt soll allerdings unter dieses Diagramm in PowerPoint eine längliche Tabelle erstellt werden in der die Urdaten gezeigt werden, also eine Tabelle mit 8 Spalten und zwei Zeilen (erste Zeile sind die Überschriften).
An diesem Punkt komme ich trotz viel gegoogel nicht weiter :
P.S.: Ich bin kein Informatiker! Ich arbeite in einem Metallunternehmen und habe keinerlei Vorkenntnisse von VBA gehabt!
Das ist mein bisheriger Code:
Option Explicit
Sub ChartObjectsNachPowerpoint()
Dim pptApp As Object 'Die PowerPoint Anwendung
Dim pptPres As Object 'Die PowerPoint Präsentation
Dim chtObj As Object, shp As Object, i
Dim pptSlide As Object
Set pptApp = CreateObject("PowerPoint.Application") 'PowerPoint starten
Set pptPres = pptApp.Presentations.Add(msoTrue) 'Neue Präsentation
Set pptSlide = pptPres.Slides.Add(1, 12)
For Each chtObj In ActiveSheet.ChartObjects 'Durch alle ChartObjekte gehen
chtObj.Chart.ChartArea.Copy
i = i + 1
Set pptSlide = pptPres.Slides.Add(i, 12) 'Layout bestimmen (blank)
With pptApp
pptPres.PageSetup.SlideSize = 15 'Auf 16:9 umstellen
End With
Set shp = pptSlide.Shapes.Paste 'Das eingefügte Chart ausrichten
shp.Top = 100
shp.Left = 75
shp.Width = 600
shp.Height = 150
Next
pptApp.Visible = True
End Sub
Es wäre wirklich Hammer, wenn ihr mir helfen könntet meinem Chef eine funktionierende Sache vorzulegen!
Ich hab mich gerade hier registriert, weil ich Hilfe brauche
Und zwar:
Ich soll für die Arbeit eine Excel Datei anfertigen, in der man Daten einträgt und die dann danaben ein Diagramm aus den Daten erstellt. Soweit - fertig.
Dann soll da ein Knopf hin, der bei Betätigung Powerpoint öffnet, eine neue Präsi erstellt und auf die erste Seite das Diagramm packt. Ebenfalls - bereits geschafft.
Jetzt soll allerdings unter dieses Diagramm in PowerPoint eine längliche Tabelle erstellt werden in der die Urdaten gezeigt werden, also eine Tabelle mit 8 Spalten und zwei Zeilen (erste Zeile sind die Überschriften).
An diesem Punkt komme ich trotz viel gegoogel nicht weiter :
P.S.: Ich bin kein Informatiker! Ich arbeite in einem Metallunternehmen und habe keinerlei Vorkenntnisse von VBA gehabt!
Das ist mein bisheriger Code:
Option Explicit
Sub ChartObjectsNachPowerpoint()
Dim pptApp As Object 'Die PowerPoint Anwendung
Dim pptPres As Object 'Die PowerPoint Präsentation
Dim chtObj As Object, shp As Object, i
Dim pptSlide As Object
Set pptApp = CreateObject("PowerPoint.Application") 'PowerPoint starten
Set pptPres = pptApp.Presentations.Add(msoTrue) 'Neue Präsentation
Set pptSlide = pptPres.Slides.Add(1, 12)
For Each chtObj In ActiveSheet.ChartObjects 'Durch alle ChartObjekte gehen
chtObj.Chart.ChartArea.Copy
i = i + 1
Set pptSlide = pptPres.Slides.Add(i, 12) 'Layout bestimmen (blank)
With pptApp
pptPres.PageSetup.SlideSize = 15 'Auf 16:9 umstellen
End With
Set shp = pptSlide.Shapes.Paste 'Das eingefügte Chart ausrichten
shp.Top = 100
shp.Left = 75
shp.Width = 600
shp.Height = 150
Next
pptApp.Visible = True
End Sub
Es wäre wirklich Hammer, wenn ihr mir helfen könntet meinem Chef eine funktionierende Sache vorzulegen!