'Model3D property in PowerPoint not showing up in list of references
I need to create a script that validates whether or not the correct view was applied to a 3D model, but the application I am writing the script for does not recognize the Model3DFormat object or the Model3D property under the property ShapeRange that I need to perform this validation.
The version of PowerPoint the application uses acknowledges that 3D models exist, as the 3D models are on the slides in the files used by the application and the Model3D property appears in the Developer tab, but it just seems to be the VBA script validation that doesn't recognize 3D models.
I have tried updating the NuGet packages (latest version showing for Microsoft.Office.Interop.PowerPoint is 15.0.4420.1017, which I have installed to the application) and removing and re-adding the PowerPoint Object library in the references list, but neither seem to have changed anything.
Here is the script I am trying to get working:
Try
Dim rcount As Integer
With Application.ActivePresentation.Slides(3).Shapes(3).Model3D
If .RotationX = 90 And _
.RotationY = 300 And _
.RotationZ = 270 Then
Return True
Else
Return False
End If
End With
Catch ex As Exception
Return False
End Try
Image of the Solution Explorer for the application showing the reference list
Sources
This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.
Source: Stack Overflow
| Solution | Source |
|---|
