I need to paste an image (in this case a copy of a chart) into another worksheet, rotate that image -90 degrees and move it to the top left corner of the worksheet (Cell "A1"). This seems like it should be fairly straight forward, but I am running into some issues. If I paste the image to Cell "A1" and rotate it, the image becomes distorted. I can easily fix this by setting the height and width, but I cannot get the image to move all the way to the left. It almost seems like when I paste the image to a cell and then rotate it the "origin" of the image remains the top, left of the cell not the top, left of the image. Because of this I can't move the image all the way to the left of Cell "A1" because the .ShapeRange.Left cannot be negative.
Any help would be appreciated.
Sheets(ChartSheets(5)).Select
ActiveSheet.ChartObjects(1).Activate
ActiveChart.CopyPicture
Sheets("TEST").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Picture (PNG)", Link:=False, _
DisplayAsIcon:=False
With Selection
.ShapeRange.Rotation = 270
.ShapeRange.Top = Range("A1").Top
.ShapeRange.Left = Range("A1").Left
End With
Any help would be appreciated.
Sheets(ChartSheets(5)).Select
ActiveSheet.ChartObjects(1).Activate
ActiveChart.CopyPicture
Sheets("TEST").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Picture (PNG)", Link:=False, _
DisplayAsIcon:=False
With Selection
.ShapeRange.Rotation = 270
.ShapeRange.Top = Range("A1").Top
.ShapeRange.Left = Range("A1").Left
End With