Hallo zusammen,
ich bin ziemlich unerfahren was VBA angeht und komme bei einem Problem nicht weiter. Vielleicht könnt ihr mir helfen?
Ich versuche aus einer Spalte in Excel alle darin befindlichen Zahlen auszulesen und in verschiedene, bereits existierende Powerpoint-Präsentationen zu schreiben. Ich weiß bereits, wie ich Zahlen aus mehreren Zellen in neue Powerpoint Präsentationen auf eine Folie bekomme, jedoch nicht, wie ich etwas in bereits existierende schreibe. Wie würde ich da am besten vorgehen? Hier mein Code, den ich bisher verwendet habe:
ich bin ziemlich unerfahren was VBA angeht und komme bei einem Problem nicht weiter. Vielleicht könnt ihr mir helfen?
Ich versuche aus einer Spalte in Excel alle darin befindlichen Zahlen auszulesen und in verschiedene, bereits existierende Powerpoint-Präsentationen zu schreiben. Ich weiß bereits, wie ich Zahlen aus mehreren Zellen in neue Powerpoint Präsentationen auf eine Folie bekomme, jedoch nicht, wie ich etwas in bereits existierende schreibe. Wie würde ich da am besten vorgehen? Hier mein Code, den ich bisher verwendet habe:
Visual Basic-Quellcode
- Sub toPpt()
- Dim oPPT As PowerPoint.Application
- Dim oPres As PowerPoint.Presentation
- Dim oSlide As PowerPoint.Slide
- Dim oShape As PowerPoint.Shape
- Dim i As Integer
- Dim num1 As String
- Set oPPT = CreateObject("PowerPoint.Application")
- oPPT.Visible = msoTrue
- Set oPres = oPPT.Presentations.Add(msoTrue)
- Set oSlide = oPres.Slides.Add(1, ppLayoutBlank)
- Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 256, 28)
- For i = 1 To ActiveSheet.UsedRange.Columns.Count:
- num1 = Cells(1, 1)
- Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, i, 10, 256, 28)
- oShape.TextFrame.TextRange.Text = num1
- Next
- End Sub