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>

 

[Rick Rothstein]

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>

Add this line of code immediately after the AddPicture line of code above...

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Rotation = 90

where you would put the number of degrees counterclockwise that you wanted to rotate the picture in place of my example 90 degree number. 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.

 

[ParamRay]

  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 _
  ).Rotation = 180

 

[zgivod]

Add this line of code immediately after the AddPicture line of code above...

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Rotation = 90

where you would put the number of degrees counterclockwise that you wanted to rotate the picture in place of my example 90 degree number. 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 can you please show me a example code i tried pasting that line of code but getting error. Thanks

 

[zgivod]

?

 

[zgivod]

  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 _
  ).Rotation = 180

@paramaRay your answer is blank

 

[Rick Rothstein]

can you please show me a example code i tried pasting that line of code but getting error. Thanks

Show me the whole code you used that produced the error and indicate on what line the error occurred.

 

[zgivod]

Show me the whole code you used that produced the error and indicate on what line the error occurred.

Sub oct2019ad()


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

SYNTAX ERROR

Sub oct2019ad()


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

RUN TIME ERROR 450';
WRONG NUMBER OF ARGUMENTS OR INVALID PROPERTY ASSIGNMENTS

 

[Rick Rothstein]

Sub oct2019ad()


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

SYNTAX ERROR

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

RUN TIME ERROR 450';
WRONG NUMBER OF ARGUMENTS OR INVALID PROPERTY ASSIGNMENTS

You misinterpreted what I meant by "immediately after the AddPicture line of code"... those line continuation you have are all part of the same line of code. Specifically, this is an entire line of code...

  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 _
  ).Rotation = 180

If was immediately after that that you were supposed to put the code I posted.

  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 _
  ).Rotation = 180
  ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Rotation = 90

 

[zgivod]

You misinterpreted what I meant by "immediately after the AddPicture line of code"... those line continuation you have are all part of the same line of code. Specifically, this is an entire line of code...

  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 _
  ).Rotation = 180

If was immediately after that that you were supposed to put the code I posted.

  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 _
  ).Rotation = 180
  ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Rotation = 90

That works great thanks allot, my mistake