3D シーンを VRML 形式でエクスポート

Public Sub subExportVRML()
    Dim pSxDocument As ISxDocument
    Set pSxDocument = ThisDocument
     
    Dim pScene As IScene
    Set pScene = pSxDocument.Scene
     
    Dim pVRMLExporter As IVRMLExporter
    Set pVRMLExporter = New VRMLExporter
     
    Dim pSceneExporter3d  As ISceneExporter3d
    Set pSceneExporter3d = pVRMLExporter
     
    With pVRMLExporter              ' ArcScene、ArcGlobeの3Dエキスポートオプション 項目名
        .Indentation = False        ' VRML ファイル内のテキストを読みやすくインデント
        .IsYUp = True               ' 縦方向の軸としてYを使用
        .MoveToOrigin = False       ' 座標系の原点を中央に表示
        .Quality = 100              ' JPEG テクスチャ品質（0-100）
        .SaveOnlyVisible = True     ' 表示レイヤのみを保存
        .UseElevationGrid = True    ' ラスタのサーフェスとして標高グリッドを使用
        .UseGeoVRML = False
    End With
     
    With pSceneExporter3d
        .ExportFileName = "test." & .FileExtension
        Debug.Print .FileExtension
        Debug.Print .Filter
        Debug.Print .Name
        .ExportScene pScene
    End With
 
End Sub