Trimakasih banyak sama mbak dev mungkin sudah sesuai atau ini lah yang kami harapkan......sekali lagi trimakasih.
--- In [email protected], siti Vi <setiyowati.d...@...> wrote: > > oh maaf, mungkin cara saya menjawab terlalu terus terang.. tanpa basa-basi, > maaf pak... > > tapi benar kok pak, > jika permintaannya hanya dinyatakan dengan: "MENAMBAH" (dimensi) saja > saya (dan mungkin orang lain) memang masih harus tanya dulu : > "menambah menjadi berapa / diperbesar dengan rasio berapa kali ?" > > kalau NILAI / RASIO nya tidak dinyatakan, lha trus bgmana menuliskan contoh > codingnya .. > > Private Sub CommandButton1_Click() > On Error GoTo bottomz > Dim AlamatGambar As String, sell As String > AlamatGambar = Range("D1").Value > sell = Range("D2").Value > If Dir(AlamatGambar) = "" Then > MsgBox "File gambar tidak ditemukan mas." > Exit Sub > End If > Range(sell).Select > ActiveSheet.Pictures.Insert(AlamatGambar).Select > ' modifikasi 17 jan 2010 / ctv > With Selection.ShapeRange > .Width = 0.75 * 400 > .Height = 0.75 * 640 > End With > '-- end of modification --- > bottomz: > End Sub > > > cuplikan dari help property Width > Width property as it applies to the Graphic, Shape, and ShapeRange objects. > The width, in points, of the object. Read/write Single. > > expression.Width > expression Required. An expression that returns one of the above objects. > > Jadi Property width / height pada Shape (termasuk picture) satuan defaultnya > adalah 'POINT' dan nilai yg dimasukkan ke properties tsb bertype bilangan > Single > (single-precision floating-point) > 1 point = 1/72 Inch; 1 pixel = 0.75 point > > CMIIW > > best regards, > siti > > > > > -------------------------------------------------------------------------------- > > ----- Original Message ----- > From: Mbah > To: [email protected] > Sent: Sunday, January 17, 2010 2:38 PM > Subject: [belajar-excel] Re: tolong utk mengatur ukuran gambar di VB > > IYA DEH TRIMAKASIH BANYAK ATS BANTUANNYA .....mungkin sy belum tau banyak... > jadi tanyaknya ala kadarnya....mungkin yang saya maksud misal untuk comot > file gambar > ditetapkan pada ukuran 640px X 400px pada tampilan exelnya >
