Mendapatkan Value Lebar (Width) Pada Row (A1) MS.Excel

PERSIAPAN
NO	REFERENCES			KETERANGAN
1.	Microsoft Excel 11.0 Object Library			Cara menambahkannya adalah pilih menu : Project-references. Office yg Digunakan MS 2003
PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
2.	TextBox	1	Text	""	kosongkan
3.	ComboBox	1

Masukkan souce ini ke dalam Form :Dim xls As New Excel.Application Dim xlsw As Excel.Workbook Dim xlsws As Excel.Worksheet Private Sub Combo1_Click() Dim Cektext As String Cektext = Combo1.Text Set xlsw = xls.Workbooks.Open(App.Path & "\New Microsoft Excel Worksheet.xls") 'sheet yang ditampilkan xlsw.Sheets("Sheet1").Select Select Case Cektext Case "Point" Text1 = xlsw.Application.Range("A1").Width '& " Point" Case "PIXEL" Text1 = xlsw.Application.Range("A1").Width / 0.75 '& " Pixel" Case "MM" Text1 = (xlsw.Application.Range("A1").Width / 0.75) * 0.08 '& " mm" End Select xlsw.Close False xls.Quit Set xlsw = Nothing Set xls = Nothing End Sub Private Sub Command1_Click() Set xlsw = xls.Workbooks.Open(App.Path & "\New Microsoft Excel Worksheet.xls") 'sheet yang ditampilkan xlsw.Sheets("Sheet1").Select 'Menampilkan Tinggi Pada Text1 Text1 = xlsw.Application.Range("A1").Width '& " Point" xlsw.Close False xls.Quit Set xlsw = Nothing Set xls = Nothing End Sub Private Sub Form_Load() Combo1.AddItem "MM" Combo1.AddItem "PIXEL" Combo1.AddItem "Point" Combo1.Text = "Point" End Sub