Скачать с ютуб 760 Cognos for Office in Powerpoint в хорошем качестве

760 Cognos for Office in Powerpoint

This video will tell us everything specific about using Cognos for Office in Powerpoint. We will se how to import data, how to change settings and how Cognos tracks its objects in Powerpoint. VBA procedure: Sub ReadCustomTeags() Dim pres As Presentation Dim sld As Slide Dim shp As Shape Dim tagName As String Dim tagValue As String 'Set the current presentation Set pres = ActivePresentation 'Loop through each slide For Each sld In pres.Slides 'Loop through each shape in the slide For Each shp In sld.Shapes 'Check if the shape has tags ' "bigger than" sign is not allowed on youtube If shp.Tags.Count "bigger than" 0 Then 'Print the shape name Debug.Print "Shape: " & shp.Name & ", Shape ID: " & shp.Id 'Loop through all tags For i = 1 To shp.Tags.Count 'Get tag name and value tagName = shp.Tags.Name(i) tagValue = shp.Tags.Value(i) 'Print tag name and value Debug.Print "Tag Name: " & tagName & ", Tag Value: " & tagValue Next i 'Add a separator for readibility Debug.Print "-----------------------------------------" End If Next shp Next sld End Sub