Private Sub SetSecondHand(Seconds As Single) Dim Theta As Single ' clockwise angle from vertical Dim NewX As Single Dim NewY As Single Dim LS as Shape Theta = (Seconds / 60) * TwoPI NewX = cCenterX + (cLenSecond * Sin(Theta)) NewY = cCenterY - (cLenSecond * Cos(Theta)) LS.Nodes.SetPosition 2, NewX, NewY
|macro for active word document||4||39|
|Want to create a userform that looks like the image provided||10||44|
|InternetExplorer object in Excel VBA.||4||21|
|NEED TO UPDATE DATA IN EXCEL||18||29|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!