Dear All,
Coba Security Macronya Bapak aktifkan (centang) pada Enable All Macros. caranya.
Pilih Office Button kemudian pilih Excel Options, kemudia pada TAB Popular
(Show Developer Tab In The Ribbon tolong di centang) kemudian pilih OK.
Selanjutnya Pada Pada tampilan Menu Excel Akan bertambah Menu Developer dekat
Menu View. Nah selanjutnya coba Bapak Klik Menu Developer tersebut maka akan
tampil menu untuk Macro Excel dan klik Icon macro Security kemudian pada Macro
setting Bapak Centang Enable All Macros kemudian Klik OK ( jadi dech macro
bapak bisa dipakai pada Excel 2007).
Selamat Mencoba semoga bermanfaat............................Sukesssssssss
--- On Wed, 9/17/08, Dr.-Ing. Alexander Halim <[EMAIL PROTECTED]> wrote:
From: Dr.-Ing. Alexander Halim <[EMAIL PROTECTED]>
Subject: [belajar-excel] Fwd: Macro excel 2007
To: belajar-excel@yahoogroups.com
Date: Wednesday, September 17, 2008, 6:04 PM
Ada teman-teman yang mempunyai pengalaman dengan Excel 2007 dan dapat membantu
teman kita Pak Bambang? Saya sampai sekarang hanya menggunakan Excel 2003.
Sekilas sih dari sisi macronya ngga masalah, mungkin dari sisi setting.
Pls help.
---------- Forwarded message ----------
From: Setyobudi, Bambang <bambang.setyobudi@ philips.com>
Date: 2008/9/15
Subject: Macro excel 2007
To: "halim.alexander@ gmail.com" <halim.alexander@ gmail.com>
Pak Alexander !
Mohon Bantuan.
Saya punya macro di office 2003. Yang nggak pernah ada masalah disaat buat
kerja.
Akan tetapi setelah berubah ke office 2007, macro tsb tidak bisa jalan.
Barangkali teman-teman punya solusinya, tolong sharing ke saya.
Berikut ini saya lampirkan macro kerja saya di 2003 .
Public Sub hapus()
ActiveSheet. Shapes("Picture 15").Select
Selection.Delete
ActiveSheet. Shapes("Picture 16").Select
Selection.Delete
ActiveSheet. Shapes("Picture 17").Select
Selection.Delete
End Sub
------------ --------- --------- --------- --------- --------- ---------
--------- --------- --------- --------- -
Public Sub proses()
Dim nama As String
Worksheets("TITLE").Select
nama = Range("r63").Value & ".JPG"
'namafile = ""ChDir
namafile = "D:\DATA\HOME\ DRAWING\1. Drawing Stem\" & nama
Range("E292").Select
If Dir(namafile) <> "" Then
ActiveSheet. Pictures. Insert(namafile) .Select
Selection.Name = "Picture 15"
Else
ActiveSheet. Pictures. Insert("D:\DATA\HOME\ drawing\1. Drawing
Stem\kosong" & ".JPG").Select
Selection.Name = "Picture 15"
End If
nama = Range("r64").Value & ".JPG"
'namafile = ""ChDir
namafile = "D:\DATA\HOME\ DRAWING\2. Drawing MOUNT\" & nama
Range("F342").Select
If Dir(namafile) <> "" Then
ActiveSheet. Pictures. Insert(namafile) .Select
Selection.Name = "Picture 16"
Else
ActiveSheet. Pictures. Insert("D:\DATA\HOME\ drawing\2. Drawing
Mount\kosong" & ".JPG").Select
Selection.Name = "Picture 16"
End If
nama = Range("r65").Value & ".JPG"
'namafile = ""ChDir
namafile = "D:\DATA\HOME\ DRAWING\3. Drawing LAMP\" & nama
Range("F392").Select
If Dir(namafile) <> "" Then
ActiveSheet. Pictures. Insert(namafile) .Select
Selection.Name = "Picture 17"
Else
ActiveSheet. Pictures. Insert("D:\DATA\HOME\ drawing\3. Drawing
lamp\kosong" & ".JPG").Select
Selection.Name = "Picture 17"
End If
End Sub
Terima kasih
Bambang sb
The information contained in this message may be confidential and legally
protected under applicable law. The message is intended solely for the
addressee(s) . If you are not the intended recipient, you are hereby notified
that any use, forwarding, dissemination, or reproduction of this message is
strictly prohibited and may be unlawful. If you are not the intended recipient,
please contact the sender by return e-mail and destroy all copies of the
original message.
--
Dr.-Ing. Alexander Halim
mobile : +62 816 996996 or +62 8179 996996
