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
--- In [email protected], siti Vi <setiyowati.d...@...> wrote: > > selamat bergabung di milis [belajar-excel].. > > "menambah" itu ada beberapa pengertian & cara lho mbah.. > misalnya dari satu menjadi 2 berarti ditambah 1 > atau karena yg ditambah itu adalah sebuah "ukuran" (dlm hal ini dimensi > gambar) > mungkin pula : 1 menjadi 2 itu karena di KALIKAN 2 / Skala-nya diperbesar 2 > kali. > > ini perlu ditanyakan dulu karena bahasa vba nya juga bisa lain-lain, > tergantung maksud mbah joyo.. > > dlm contoh di bawah ini kita asumsikan si embah selain menginsert gambar ke > sheet > juga akan memberbesar gambar yg diinsert itu menjadi 2 x ukuran aslinya > > ini modifikasi dari prosedur yg aslinya ditulis bapak kita, pak sofyan > (terima kasih pak sofyan...) > > Private Sub CommandButton1_Click() > 'Untuk milis belajar-excel > '(c)2007, Opi. > On Error GoTo nol > 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." > GoTo nol > End If > Range(sell).Select > ActiveSheet.Pictures.Insert(AlamatGambar).Select > 'ctv modif: 17jan2010 > With Selection.ShapeRange > .ScaleWidth 2, msoFalse, msoScaleFromTopLeft > .ScaleHeight 2, msoFalse, msoScaleFromTopLeft > End With > > nol: > End Sub > > masih ada property lain untuk mempengaruhi ukuran /dimensi Shape; > bukan hanya ScaleWidth dan ScaleHeight saja, tergantung cara yg akan > digunakan; > misalnya mengePASkan ke dimensi cell dsb... > semua itu tentu ada di .....help-nya > > > -------------------------------------------------------------------------------- > > ----- Original Message ----- > From: Mbah > To: [email protected] > Sent: Saturday, January 16, 2010 11:59 PM > Subject: [belajar-excel] tolong utk mengatur ukuran gambar di VB > > > minta tolong cara menambahkan ukuran gambar di kode berikut bagaimana > TRIMAKASIH ATAS BANTUANNY > > Private Sub CommandButton1_Click() > 'Untuk milis belajar-excel > '(c)2007, Opi. > On Error GoTo nol > 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." > GoTo nol > End If > Range(sell).Select > ActiveSheet.Pictures.Insert(AlamatGambar).Select > nol: > End Sub >
