Grafik Excel 2007 to Visual Basic Application

Ketersedian component tools memudahkan user memvisualisasikan data dalam bentuk grafik menggunakan Microsoft Excel 2007. Saya akan menampilkan grafik data yang lebih atraktif mengunakan fasiltas Visual Basic Application tentunya ini merupakan salah satu fasilitas dari Microsoft excel 2007. Grafik yang ditampilkan merupakan grafik dinamis yang dapat menampilkan data sesuai dengan keperluan Anda. Hasil tampilannya seperti gambar di atas.

Pertama Anda membuat file data pada excel 2007. Misalkan saya ingin menampilkan grafik dari contoh file data seperti gambar di bawah ini.



Setelah Anda selesai membuat data seperti file data yang saya buat. Tekan Alt + F11


Kemudian tekan Insert klik UserForm. Tampilannya seperti gambar di bawah ini.



ToolBox yang akan digunakan untuk mendisain Form tersebut, perhatikan table di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Caption: Verynandus Hutabalian'S Blog VBA & Excel 2007
1 CommandButton	Name:CommandButton1 Caption:Tampilkan Grafik
1 ScrollBar	Name:ScrollBar1
1 ChartSpace	Name:ChartSpace1
2 Label	Name: Label 1-2 Caption Label1: Jumlah Banyak Data Yang Ditampilkan ==>> Caption Label2: Geser Scroll ==>>
1 TextBox	Name: TextBox1

Disain ToolBox di atas pada form, seperti gambar di bawah ini:

Klik kanan form, kemudian klik View Code. Ketikkan listing program di bawah ini.

Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++'
' Grafik Excel 2007 to Visual Basic Application '
'================================================='
' File Data Berada pada Sheet1 dengan Nama Visual '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Editing Programming by: Verynandus Hutabalian '
' Publish to V. Hutabalian's Blog 17 March 2010 '
'++++++++++++========================+++++++++++++'
Option Explicit
Option Base 1
Dim Cht As ChChart
Dim c

Private Sub ScrollBar1_Change()
TextBox1.Text = ScrollBar1.Value - 3 & " " & "Data"
End Sub

Private Sub UserForm_Initialize()
Set c = ChartSpace1.Constants
Set Cht = ChartSpace1.Charts.Add
End Sub

Private Sub CommandButton1_Click()
Dim d As Integer
Dim i As Integer, x As Integer
Dim j As Integer
Dim Tableau(15), Plage(15)
d = CInt(ScrollBar1.Value)

For i = Cht.SeriesCollection.Count To 1 Step -1
Cht.SeriesCollection.Delete i - 1
Next i

For i = 4 To d
Tableau(i) = Cells(1 + i, 1)
Next i
Cht.Type = c.chChartTypeColumnClustered3D
Cht.Rotation = 1

With Cht
.HasLegend = True
.Legend.Position = chLegendPositionBottom
.HasTitle = True
.Title.Caption = "Grafik Penjualan Dalam Satu Tahun"
End With
If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add

For i = 4 To d
Plage(i) = Cells(1 + i, j + 2)
Next i

With Cht
.SetData c.chDimCategories, c.chDataLiteral, Tableau
.SeriesCollection(x).Caption = Cells(1, j + 2)
.SeriesCollection(x).DataLabelsCollection.
.SeriesCollection(x).DataLabelsCollection(0).Position = chLabelPositionCenter
.SeriesCollection(x).DataLabelsCollection(0).Font.Color = RGB(255, 255, 255)
.SeriesCollection(x).SetData c.chDimValues, c.chDataLiteral, Plage
.SeriesCollection(x).Interior.Color = 50000 * (j + 2)
End With
x = x + 1
Erase Plage
End Sub

Setelah Anda mengetikkan listing source program di atas, tekan F5.

Kemudian Geser Scroll (Perhatikan Disain Form). Tampilannya seperti gambar di bawah ini.

Kemudian tekan tombol Tampilkan Grafik. Tampilannya seperti gambar di bawah ini.

Artikel yang berkaitan:

Visual Data Grafik Excel 2007 vs VBA ===>>Klik disini

Grafik Dinamis Microsoft Excel 2007 ===>>Klik disini

Pengembangan Program dapat di sesuaikan dengan penggunaan yang diingikan, Selamat Berkreasi.

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian.