Cómo incrustar dibujos CAD en Excel a través de VBA

Dim Exportfile As String

Me.Picture1.Width = Me.Picture1.Height * (Acadapp.ActiveDocument.Width / Acadapp.ActiveDocument.Height)

Exportfile = App.Path amp; "\PIC\DisplayPicture"

'Crear conjunto de selección

Dim SSet As AutoCAD.AcadSelectionSet

Set SSet = Acadapp.ActiveDocument.ExelectionSets.Add("test ")

SSet.Select (AutoCAD.AcSelect.acSelectionSetAA)