UserForm Grafik

[hamitcan]

Örnek1:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ch As ChartObject
If Target.Column > 2 Then Exit Sub
    With Worksheets("DENEME")
        Set ch = .ChartObjects.Add(100, 30, 400, 250)
        ch.Chart.ChartWizard Source:=.Range("a3:B" & [a65536].End(3).Row), _
             Title:="New Chart" ''gallery:=xlLine, Title:="New Chart"
        .ChartObjects(1).Activate
            ActiveChart.Export ("C:\MyChart.jpg")
            UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
            UserForm1.Image1.Picture = LoadPicture("C:\MyChart.jpg")
            Kill ("C:\MyChart.jpg")
            UserForm1.Show 0
        .ChartObjects.Delete
    End With
End Sub

Örnek2:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
Dim ch As ChartObject
    With Worksheets("DENEME2")

    Set ch = .ChartObjects.Add(100, 30, 400, 250)
    ch.Activate
    ch.ChartType = xlColumnClustered
    ch.SetSourceData Source:=Sheets("DENEME2").Range("A3:b32")
            ActiveChart.Export ("C:\MyChart.jpg")
            UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
            UserForm1.Image1.Picture = LoadPicture("C:\MyChart.jpg")
            Kill ("C:\MyChart.jpg")
            UserForm1.Show 0
        .ChartObjects.Delete
    End With
End Sub

 

[Orion1]

Merhaba.
Hamit bey teşekkür edererim.
Ama 2nci makro yine çalışmadı.