h = .Offset(.Row.Count, 0).Top - .Top '---------> harusnya Rows bukan Row
On 12/23/08, Safri Ishak <[email protected]> wrote: > rekan sejawat ahmad, > > h = .Offset(.Row.Count, 0).Top - .Top > sepertinya ada yang salah dgn statement diatas sehingga h kosong > alias empty > > saya tambah Err.Clear dan If statement sbb: > Err.Clear > h = .Offset(.Row.Count, 0).Top - .Top > If Err.Number <> 0 Then h = .Width / w * .Height > > sebetulnya kalau w baru sudah ada, maka langsung aja hitung h = .Width / w * > .Height (nggak perlu pake offset kan) > > saya lampirkan alternative solusinya > mudah2an membantu > > -- > Thank you and regards, > Safri > http://www.tebetbarat.com/artikel/safri.htm about me > http://www.tb512.com my virtual home > http://www.tebetbarat.com Tebet Business Directory consists of addresses and > phone numbers of favorite restaurants, traditional markets, hotels, offices, > schools, super markets, malls, automotive, gardens, flowers, cakes, > advertising, computers, salons, barber shops, cosmetics, banks, apartments > etc. > Originally it was compiled for personal purposes and then published to the > internet as a gateway to search business directory and websites in Tebet and > surrounding area. > > 2008/12/22 Ahmad Adriansyah <[email protected]> > >> Selamat Sore rekan2 sejawat, >> >> Saya mencoba membuat sebuah user form yang bisa digunakan untuk input >> gambar kedalam suatu file. >> Namun koq jadinya gambar tersebut malah tidak terlihat dengan tinggi sama >> dengan nol. >> Terlampir saya kirimkan file-nya dan code makronya dibawah ini. Apakah ada >> yang salah dari coding ini? >> >> Private Sub CbBrowse_Click() >> >> Const ImgFileFormat = _ >> "Image Files (*.bmp;*.gif;*.jpg;*.jpeg)," & _ >> "*bmp; *gif;*jpg;*.jpeg" >> >> Namafile = Application.GetOpenFilename(ImgFileFormat) >> If Namafile = "False" Then >> Exit Sub >> End If >> >> TbPic.Text = Namafile >> Image1.Picture = LoadPicture(Namafile) >> End Sub >> >> >> Private Sub CbInput_Click() >> On Error Resume Next >> >> Set NewSheet = Worksheets.Add >> NewSheet.Name = TextBox1.Text >> Range("B3").Value = TextBox1 >> >> If TbPic.Text <> "" Then >> >> >> Set Pict = ActiveSheet.Pictures. _ >> Insert(TbPic.Text) >> >> Range("A17:d31").Select >> With Selection >> t = .Top >> l = .Left >> w = .Offset(0, .Columns.Count).Left - .Left >> h = .Offset(.Row.Count, 0).Top - .Top >> End With >> >> With Pict >> .Top = t >> .Left = l >> .Width = w >> .Height = h >> End With >> Range("A32:e32").Borders(xlEdgeBottom).LineStyle = xlContinuous >> Else >> Range("A17:d17").Borders(xlEdgeBottom).LineStyle = xlContinuous >> End If >> Unload Me >> Columns("B:B").Columns.AutoFit >> Range("A1").Select >> >> End Sub >> >> Thanks & Regards, >> >> Ahmad Adriansyah >> >> >
