Forum > VB.NET et VB 2005!
Sub GetformatLinkedShapes() On Error Resume Next 'required for these files which are not linked Dim SHP As Shape For Each SHP In ActivePresentation.Slides(1).Shapes Debug.Print SHP.Name If Len(SHP.LinkFormat.SourceFullName) > 0 Then Debug.Print SHP.LinkFormat.SourceFullName FormatObj = Right(SHP.LinkFormat.SourceFullName, 4) Debug.Print FormatObj End If Next End Sub
Sub GetformatLink() aLinks = ActiveWorkbook.LinkSources(xlOLELinks) If Not IsEmpty(aLinks) Then For i = 1 To UBound(aLinks) Debug.Print "Link " & i & ":" & aLinks(i) FormatObj = Left(Right(aLinks(i), 5), 3) Debug.Print "Format : " & FormatObj Next i End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionc'est de savoir dans quel format sont stockées les images d'une présentation ppt