6 Replies Latest reply on Dec 5, 2014 2:34 AM by Vincent Li

    Create a edrawings model viewer in Excel sheet, but fail to shift different model.

    Vincent Li

      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.

      download the MP4 video from this link :Vincent Demo.mp4_免费高速下载|百度云 网盘-分享无限制

       

      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

      1.jpg

       

      2.jpg

       

      3.jpg