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