Artem, do you have any idea what IModelDoc2::SceneName is supposed to do? I tried returning it after setting the scene using the code below but it returned a zero length string.
Steven, in case you're interested: your code is actually missing the line that sets the SolidWorks application, which is important. Like this:
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModel.Extension.InsertScene ("C:\Program Files\SolidWorks 2013\SolidWorks\data\graphics\Scenes\01 basic scenes\00 3 point orange.p2s")
You may have to change the .p2s path to get it to work. Also, if you intend on doing much work with macros then I would recommend that you early bind your variables. So instead of having "Dim swApp as Object", you would instead have "Dim swApp as SldWorks.SldWorks". That will give you access to Microsoft's intellisense.
I suppose it should return scene name but both the following methods also return an empty string to me in all cases: