Databases
StackOverflow2013
Postsdbo
POHow to check powerpoint slide items for a table
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POHow to check powerpoint slide items for a table
    primarykey
    data
    text
    <p>I want to insert data from excel into a powerpoint table. So far my code does that function, but when it is used with a real powerpoint file, there are many items in a slide, and I do not address the right one. How can I go through a list of items in a slide and execute my code once that item is a table?</p> <p>Edit: Office 2007 / And I was asked to paste my code:</p> <pre><code>Sub AktualisierePowerpointVonExcel() Dim AnzahlZeilen As Long Dim AnzahlSlides As Long Dim App As Object Dim CurrSlide As Object Dim AktuelleIterationenFuerSlides As Long Dim AktuelleIterationenFuerZielZeilen As Long Dim z As Long Dim SHP As Shape On Error GoTo Fehler z = 1 AnzahlZeilen = Range("A65536").End(xlUp).Row Set App = CreateObject("PowerPoint.Application") App.Visible = msoTrue App.Presentations.Open "c:\Users\X\Desktop\1.pptm" AnzahlSlides = App.ActivePresentation.Slides.Count If (AnzahlZeilen / 6) &gt; AnzahlSlides Then MsgBox "Zu wenig Slides für Einträge" &amp; "Anzahl Slides:" &amp; AnzahlSlides &amp; "Anzahl Zeilen:" &amp; AnzahlZeilen &amp; "Benötigte Anzahl An Folien:" &amp; (AnzahlZeilen / 6) Exit Sub Else For AktuelleIterationenFuerSlides = 1 To AnzahlSlides Set CurrSlide = App.ActivePresentation.Slides(AktuelleIterationenFuerSlides) For AktuelleIterationenFuerZielZeilen = 1 To 6 For Each SHP In CurrSlide.Shapes If SHP.HasTable Then Worksheets("Tabelle2").Cells(z, 1).Copy SHP.Table.Cell(AktuelleIterationenFuerZielZeilen, 1).Shape.TextFrame.TextRange.Paste Worksheets("Tabelle2").Cells(z, 2).Copy SHP.Table.Cell(AktuelleIterationenFuerZielZeilen, 1).Shape.TextFrame.TextRange.Paste Worksheets("Tabelle2").Cells(z, 3).Copy SHP.Table.Cell(AktuelleIterationenFuerZielZeilen, 1).Shape.TextFrame.TextRange.Paste z = z + 1 On Error Resume Next End If Next Next Next End If Fehler: MsgBox "Fehler in Sub Fehler0" &amp; vbCrLf &amp; "Fehlernummer: " &amp; Err.Number &amp; _ vbCrLf &amp; "Fehlerbeschreibung: " &amp; Err.Description End Sub </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USchrnit
    1. USchrnit
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POHow to check powerpoint slide items for a table
      1. USchrnit
      1. VTFavorite
    1. COCan you add your code?
      singulars
      1. POHow to check powerpoint slide items for a table
      1. USfvrghl
    2. COjust to clarify- you don't know if `.Item(1)` is your table and you need to be sure? is there only one table in your slide? you need to paste or you want just to put value to PP table cell from Excel?
      singulars
      1. POHow to check powerpoint slide items for a table
      1. USKazimierz Jawor
    3. CO@KazJaw Exactly, I just need to know if .Item(1) is a table where I want to insert my values. usually there is only one table. And if not, move on to the next item until all items are checked.
      singulars
      1. POHow to check powerpoint slide items for a table
      1. USchrnit
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload