rotate picture VBA

[zgivod]

am trying to upload a picture and then rotate it and move it to specific location but i cant seem to get it to rotate. i have this code bec. i want to save with document the picture


<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Sub tyh()

ActiveSheet.Shapes.AddPicture _
Filename:="C:\Users\dovi.dovi-PC\Desktop\ads bh\IMG-7042.jpg", _
linktofile:=msoFalse, savewithdocument:=msoCTrue, _
Left:=1200, Top:=0, Width:=350, Height:=604
EndSub</code>

 

[zgivod]

Alternately, as the rotation will affect the placement for a non-square picture, you can omit the placement part of your original code, rotate the placed picture, then set the top and left properties after the rotation.

@Rick Rothstein
again in such a case i keep getting errors, i know im doing something wrong......

Sub tyh()


ActiveSheet.Shapes.AddPicture _
Filename:="C:\Users\dovi.dovi-PC\Desktop\ads bh\IMG-7042.jpg", _
LinkToFile:=msoFalse, savewithdocument:=msoCTrue,
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Rotation = 90
Left:=1200, Top:=604, Width:=350, Height:=604
End Sub

SYNTAX ERROR

 

[zgivod]

Sub tyh()

ActiveSheet.Shapes.AddPicture( _
Filename:="C:\Users\dovi.dovi-PC\Desktop\ads bh\IMG-7042.jpg", _
LinkToFile:=msoFalse, savewithdocument:=msoCTrue) = _
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Rotation = 90
End Sub

ERROR WRONG NUMBER OF ARGUMENTS OR INVALID PROPERTY ASSIGNMENT