Results 1 to 1 of 1
  1. #1
    Join Date
    Aug 2012

    Unanswered: moving text form excel to powerpoint

    I have a code to create and move bar graphs from excel to powerpoint and this works great. now i want it to have the code grab text and place it in the same sheet with with the graph.

    the text is on sheet 'Questions-all' and the graphs on 'bar graphs' the refference name of the text is on the first column of 'responses'

    so the code has to read the name of the "question" from the responses sheet then take that and find the question then take it to the powerpoint.
    Sub CreatePowerPoint() Application.ScreenUpdating = False 
         'Add a reference to the Microsoft PowerPoint Library by:
         '1. Go to Tools in the VBA menu
         '2. Click on Reference
         '3. Scroll down to Microsoft PowerPoint X.0 Object Library, check the box, and press Okay
         'First we declare the variables we will be using
        Dim newPowerPoint As PowerPoint.Application 
        Dim activeSlide As PowerPoint.Slide 
        Dim cht As Excel.ChartObject 
         'Look for existing instance
        On Error Resume Next 
        Set newPowerPoint = GetObject(, "PowerPoint.Application") 
        On Error Goto 0 
         'Let's create a new PowerPoint
        If newPowerPoint Is Nothing Then 
            Set newPowerPoint = New PowerPoint.Application 
        End If 
         'Make a presentation in PowerPoint
         'If newPowerPoint.Presentations.Count = 0 Then
         'End If
         'Show the PowerPoint
        newPowerPoint.Visible = True 
        newPowerPoint.WindowState = ppWindowMinimized 
         'Loop through each chart in the Excel worksheet and paste them into the PowerPoint
        For Each cht In ActiveSheet.ChartObjects 
             'Add a new slide where we will paste the chart
            newPowerPoint.ActivePresentation.Slides.Add newPowerPoint.ActivePresentation.Slides.Count + 1, ppLayoutText 
            newPowerPoint.ActiveWindow.View.GotoSlide newPowerPoint.ActivePresentation.Slides.Count 
            Set activeSlide = newPowerPoint.ActivePresentation.Slides(newPowerPoint.ActivePresentation.Slides.Count) 
             'Copy the chart and paste it into the PowerPoint as a Metafile Picture
             'Set the title of the slide the same as the title of the chart
            activeSlide.Shapes(1).TextFrame.TextRange.Text = cht.Chart.ChartTitle.Text 
             'Adjust the positioning of the Chart on Powerpoint Slide
            newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = 15 
            newPowerPoint.ActiveWindow.Selection.ShapeRange.Top = 125 
            activeSlide.Shapes(2).Width = 200 
            activeSlide.Shapes(2).Left = 505 
             'Now let's change the font size of the callouts box
            activeSlide.Shapes(2).TextFrame.TextRange.Font.Size = 16 
        AppActivate ("Microsoft PowerPoint") 
        Set activeSlide = Nothing 
        Set newPowerPoint = Nothing 
        Application.ScreenUpdating = True 
    End Sub
    Attached Files Attached Files

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts