Function ConstructMatrix3D (ByVal degrees As Double) As Matrix3D Dim angle As Double angle = Radians (degrees)' Your angle is measured from North, so you may need to subtract 90 degrees if cell is oriented along X axis angle = angle - Pi() Const Z As Long = 2 ConstructMatrix3D = Matrix3dFromAxisAndRotationAngle (Z, angle) End Function
↧
RE: [V8i VBA] Automating rotated cell insertion - which Matrix3d method?
↧