Create a edrawings model viewer in Excel sheet, bu

Hi Every one,

I want to make a preview window in a sheetbook of excel with VBA, with the edrawings control.

But fail in shifting showing different sw model by inputting different file location string.

However, It can make it thru shifting the design mode button of excel.

Here is the VBA code, pls help me to check where is the problem , or let me know the correct method of EModelViewControl.

for more information , you can check the attached demo video that showing my question.

thank you very much.

regards

Vincent

-----------------------------------------------------------------------------

Sub edrawingViewer()

Dim SWfile As String

SWfile = InputBox("input the file location string：")

With Sheet1

.EModelViewControl1.Filename = SWfile

.EModelViewControl1.Refresh

End With

End Sub