Otomatik grafik butonu hk

[ersoyalan]

Arkadaşlar merhaba,

Aylık Arıza Raporu butonunu ve 2.Seviye Hizmet Raporu butonunu tıkladığmda, Yeşil boyalı alanlara girdiğim adetleri grafik olarak aynı pencere içerisinde farklı bir sheet yaratmadan grafik olarak göstermek istiyorum.

Yardımcı olursanız sevinirim.

Saygılarımla,
E.ALAN

 

[ersoyalan]

Usta hocalarım yardımcı olursanız sevinirim...

Syg,


E.ALAN

 

[ersoyalan]

Arkadaşlar lütfen yardım edin...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton2_Click()
    On Error Resume Next
    For X = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(X).Delete
    Next
    Charts.Add
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("TEM GENEL TOPLAM").Range("C29:D33,F29:O33"), PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="TEM GENEL TOPLAM"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "2. SEVİYE HİZMET RAPORU GRAFİĞİ"
        .Axes(xlCategory).HasTitle = False
        .Axes(xlSeries).HasTitle = False
        .Axes(xlValue).HasTitle = False
    End With
End Sub

 

[ersoyalan]

Korhan Hocam ilginiz ve yardımlarınız için çok teşekkürederim.

Hocam şimdi aklıma geldi..Grafik açılınca kapatmak için bir yöntem varmıdır.Grafiğin üzerini tıklayıp delete yapınca ekrandan kayboluyor.Otomatik kaybolma yada belli bir saniyeden sonra ekrandan kaybolma gibi...

İyi çalışmalar.

 

[ersoyalan]

Hocam grafik birde grafik boyutunu biraz daha büyüse çünkü açıldığında bütün değerleri göstermiyor açınca gösteriyor.

 

[Korhan Ayhan]

Selamlar,

Boş bir modüle ekledikten sonra aşağıdaki kodu o modül içine yerleştirin.

Sub GRAFİK_GİZLE()
    On Error Resume Next
    For X = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(X).Visible = False
    Next
End Sub

Daha önceki mesajımda önerdiğim koduda aşağıdaki şekilde değiştirip deneyin.

Private Sub CommandButton2_Click()
    On Error Resume Next
    For X = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(X).Delete
    Next
    Charts.Add
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("TEM GENEL TOPLAM").Range("C29:D33,F29:O33"), PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="TEM GENEL TOPLAM"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "2. SEVİYE HİZMET RAPORU GRAFİĞİ"
        .Axes(xlCategory).HasTitle = False
        .Axes(xlSeries).HasTitle = False
        .Axes(xlValue).HasTitle = False
    End With
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Selection.OnAction = "GRAFİK_GİZLE"
    Range("A1").Select
    For X = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(X).ShapeRange.ScaleWidth 1.4, msoFalse, msoScaleFromTopLeft
    ActiveSheet.ChartObjects(X).ShapeRange.ScaleHeight 1.8, msoFalse, msoScaleFromTopLeft
    ActiveSheet.ChartObjects(X).ShapeRange.ScaleWidth 1.15, msoFalse, msoScaleFromBottomRight
    Next
End Sub

Grafik oluştuktan sonra üstüne gelip tıkladığınızda otomatik olarak gizlenecektir.

 

[ersoyalan]

Hocam biraz geç gördüm cevabınızı..Teşekkürederim saygılarımla.Elleriniz dert görmesin..

İyi çalışamalr.
E.ALAN