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 <[EMAIL PROTECTED]>
Date: 2008/9/15
Subject: Macro excel 2007
To: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
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
