ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[svorm]

Merhaba

Alttaki kod ile print screen alıp mesaj olarak iletiyorum.
Print screen ile oluşan resmi 90C döndürmeyi başaramadım.
Yardımcı olabilirseniz sevinirim.

Kod: Tümünü seç

Private Sub ExportPicture(ByVal rng As Range, ByVal tmpfile As String)
      Dim graf As ChartObject
    rng.CopyPicture
        Set graf = ThisWorkbook.ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height)
    graf.Select
    With graf.Chart
        .Paste
        .Export tmpfile
        .Parent.Delete
    End With
End Sub



[bilgiislemci]

For i = 1 To 90
Selection.ShapeRange.IncrementRotation 4
Application.Calculate
Next i