title: VBA macro to increment rotation of selected shape/picture in powerpoint
body: <p>Basically, I am not much of a programmer and do a lot of drawing and diagramming in PowerPoint for education purposes. I currently use PowerPoint 2016. To increase my workflow speed, I map keyboard shortcuts to macro keys on my keyboard so I get the functionality just by hitting a key on the keyboard.</p>
  
  <p>I am trying to find a macro that I can link to a keyboard shortcut allowing me to increment the rotation of the currently selected shape to … let’s say 2 degrees each time I hit the shortcut.</p>
  
  <p>I'm new to ppt vba. After doing some research so far here is what I came up with. But it doesn't seem to be working.</p>
  
  <pre><code>Public Sub RotateCW2()
    Dim shp As Shape
  
      Set shp = ActiveWindow.Selection.ShapeRange(1)
      shp.Rotate = shp.Rotate + 2  
  
  End Sub
  </code></pre>
  
  <p>Appreciate the help!</p>