Drucken
MS Powerpoint betrifft MS Powerpoint

Problembeschreibung:

Sie

Programmcode


'Ereignisprozedur zum Anzeigen von Detailinformationen aus versteckter Tabelle
Sub Zeige_Detailinformationen(ByVal Objekt As Shape)
'zeigt die entsprechende Detailinformation aus einer versteckten Wertetabelle
Const INFO_TABELLE As String = "versteckte_Informationstabelle" 'Name der versteckten Informationstabelle
Const NAME_DETAILANZEIGE As String = "Zusatzinfos_Text" 'Name des Shapes zum Anzeigen der Detailinformationen
Dim Anzahl_Infos As Long
Dim Text As String
Dim Information As String
Dim i As Long

'Eine Tabelle in Powerpoint ist eine Gruppierung von Textboxen mit der Indizierung von rechts unten aus
With SlideShowWindows(1).View.Slide
'Anzahl der Zellen in Tabelle ermitteln
Anzahl_Infos = (.Shapes(INFO_TABELLE).GroupItems.Count / 2) + 1
For i = Anzahl_Infos To 1 Step -2
'Inhalt der Zelle ermitteln
Text = .Shapes(INFO_TABELLE).GroupItems(i).TextFrame.TextRange.Text
'Information in Tabelle suchen
If StrComp(Text, Objekt.Name, vbTextCompare) = 0 Then
'Information gefunden -> Detail darstellen
Information = .Shapes(INFO_TABELLE).GroupItems(i - 1).TextFrame.TextRange.Text
'Information in Detailfeld anzeigen
.Shapes(NAME_DETAILANZEIGE).TextFrame.TextRange.Text = Information
Exit For
End If
Next i
End With
End Sub