Bepaal van vorm het aantal graden waarmee die gedraaid is

[Orcaa]

Heb een blad met een aantal vormen erop. Deze vormen zijn een aantal graden gedraaid.
Nu wil ik met macro van iedere vorm vaststellen hoeveel graden die gedraaid is en dus een lijstje krijg met vorm naam met daarachter aantal graden dat ie gedraaid is.

Het is wel gelukt om vorm een gewenst aantal graden te laten draaien, maar heb niet gevonden hoe ik van een gedraaide vorm vaststel hoeveel graden die gedraaid is

Degrees = 40
'Sheets("blad1").Shapes(1).Rotation = Degrees

alvast bedankt

 

[HSV]

Test het maar eens.

Sub hsv()
Dim sh As Shape, i As Long
With Sheets("blad1")
i = 1
For Each sh In .Shapes
  .Cells(i, 1) = sh.Name
  .Cells(i, 2) = sh.Rotation
     i = i + 1
   Next sh
 End With
End Sub

 

[Orcaa]

Hallo Harry,

sorry voor late reactie, maar ben een paar dagen weg geweest.

Bedankt voor je oplossing
dit werkt en doet wat ik eigenlijk wilde doen