Comment importer une présentation?

[Invité Patrick]

Comment importer une présentation depuis un gabarit en VBA?

[winfield]

slt

 

en espérant que ça t'aide,

 

Sub CopierPresentation()

   Dim ObjLayoutSource As ACADLayout
   Dim ObjLayoutCopy As ACADLayout
   Dim ObjEntite As AcadEntity
   Dim ObjArray() As Object
   Dim VarObjects As Variant
   Dim StrLayoutCopy As String
   Dim StrLayoutSource As String
   
   StrLayoutCopy = "Copie"
   StrLayoutSource = "Source"
   
   Chemin = "C:\FichierSource.dwt"
   
   Set FichierActif = ThisDrawing.Application.ActiveDocument
   Set ObjLayoutCopy = FichierActif.Layouts.Add(StrLayoutCopy)
   ThisDrawing.ActiveLayout = ThisDrawing.Layouts(StrLayoutCopy)
   
   For Each ObjEntite In ThisDrawing.PaperSpace
       If ObjEntite.ObjectName = "AcDbViewport" Then
           ObjEntite.Delete
       End If
   Next
   
   Set FichierSource = ThisDrawing.Application.Documents.Open(Chemin)
   Set ObjLayoutSource = FichierSource.Layouts(StrLayoutSource)
   ThisDrawing.ActiveLayout = ThisDrawing.Layouts(StrLayoutSource)
   ObjLayoutCopy.CopyFrom ObjLayoutSource
   
   i = -1
   For Each ObjEntite In FichierSource.PaperSpace
       i = i + 1
       ReDim Preserve ObjArray(i) As Object
       Set ObjArray(i) = ObjEntite
   Next
   
   VarObjects = FichierSource.CopyObjects(ObjArray, FichierActif.PaperSpace)
   VarObjects(0).Delete
   FichierSource.Close
   ThisDrawing.Regen acActiveViewport
   ZoomExtents
       
End Sub 

 

[Invité Patrick]

Merci je vais tester ça.