Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

VBA Powerpoint - Exportando o texto da Apresentação MS Powerpoint para um arquivo CSV do MS Excel - Export the text of a presentation to a CSV/Excel file

Blog Office VBA | Blog Excel | Blog Access |
Inline image 1
Como posso exportar o conteúdo dos Slides de uma apresentação de modo que possa utilizá-las em um Dashboard no MS Excel, mantendo assim, o padrão de apresentação em ambas as interfaces?

Segue um código, um pouco trabalhoso, mas simples:

Sub ExpTxtToCSV()
  Dim oPres As Presentation
  Dim oSlides As Slides
  Dim oSld As Slide        'Slide Object
  Dim oShp As Shape     'Shape Object 
  Dim iFile As Integer      'File handle for output
  Dim sTempString As String

  Dim PathSep As String
  Dim Quote As String
  Dim Comma As String
  iFile = FreeFile          'Get a free file number

  #If Mac Then
    PathSep = ":"
  #Else
    PathSep = "\"
  #End If

  Quote = Chr$(34)
  Comma = ","

  Set oPres = ActivePresentation
  Set oSlides = oPres.Slides

  'Open output file
  ' NOTE:  errors here if original PPT file hasn't been saved
  Open oPres.Path & PathSep & "AllText.CSV" For Output As iFile

  For Each oSld In oSlides    'Loop thru each slide
    For Each oShp In oSld.Shapes                'Loop thru each shape on slide

      'Check to see if shape has a text frame and text
      If oShp.HasTextFrame And oShp.TextFrame.HasText Then
          sTempString = sTempString & Quote & oShp.TextFrame.TextRange.Text & Quote & Comma
      End If

    Next oShp

    ' print the result to file:
    Print #iFile, sTempString
    sTempString = ""

  Next oSld

  'Close output file
  Close #iFile
End Sub

Reference: 
Tags: VBA, Powerpoint, Excel, export, text, slide, CSV, 

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine