Macro help for right angle diagram.

JohnWilson · #1 08-27-2012, 01:51 AM

PowerPoint doesn't have an ACos function (unlike Excel) which makes it difficult to get the Angle from a Cosine

You can write a User defined function though (hope your math is good!).

Code:

Function GetAngle(ThisCos As Double) As Double
Const PI As Double = 3.141592
Dim Acos As Double
Acos = Atn(-ThisCos / Sqr(-ThisCos * ThisCos + 1)) + 2 * Atn(1)
GetAngle = Round(Acos * 180 / PI, 2)
End Function

From your normal code you would use this :

Code:

Dim theAngle As Double
theAngle = GetAngle(0.866)
MsgBox theAngle

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
network diagram arrows	ketanco	Project	3	02-14-2013 10:46 AM
the angle format (º ‘ ‘’) and calculation?	Jamal NUMAN	Excel	25	05-19-2012 01:50 PM
how to draw line diagram with x yr yl	gsrikanth	Excel	1	03-07-2012 05:50 AM
arrows not showing in certain sections of network diagram	ketanco	Project	1	12-24-2011 12:50 PM
Angle Bracket Problem, STYLEREF in Header of a Protected Document	wordjunkie	Word	0	06-18-2010 04:34 AM