thanks for respond mbak Siti.
istilah "zoom to center object" atau tepatnya "zoom to selected object"
biasanya
aku pakai di software autocad dengan bantuan autolisp atau vba-nya autocad.
Karena saat ini semua gambar ada di excel berupa shape, jika saya melakukan
selection shape based on nama saya harus scroll excel sampai ketemu shape yang
dipilih. Bisa nggak ya, proses ini dilakukan otomatis?
misal memanfaatkan property obj.top atau obj.left
terimakasih
-zainul-
________________________________
From: STDEV(i) <setiyowati.d...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, August 31, 2010 8:26:16
Subject: Re: [belajar-excel] zoom ke object yang terpilih
Oops... belum ada yg nanggap ya...
Saya belum begitu menangkap benar maksud "Zoom to Center Object"
tetapi makro yg pernah muncul di 'milis sebelah' November 2008 berikut ini
mungkin dapat memberi inspirasi kpd mas zain..
Misal ada sebuah shape di DALAM sebuah Cell (Merged Cell); Dimensi shape lebih
kecil
daripada dimensi MergedCell dimana si Shape "melayang" di atasnya
istilahnya = "melayang" karena shape tidak pernah benar-benar berada di cell
(dia hanya
berada "setentang" dengan cell, katanya, dia ada di LAYER lain)
makro akan memanipulasi dimensi shape menjadi persis sama / berimpit
dengan dimensi MergedCell
Sub ApaGituLoch()
'--------------------------------
' siti Vi mengubah dimensi Shape
'--------------------------------
Dim img, mCel As Range
For Each img In Me.Shapes
With img
If .Type = msoPicture Then
.LockAspectRatio = False
Set mCel = .TopLeftCell.MergeArea
.Top = mCel.Top
.Left = mCel.Left
.Width = mCel.Width
.Height = mCel.Height
End If
End With
Next img
End Sub
jadi singkatnya : properties Top, Left, Width dan Height si object img diubah
menjadi sama besar dengan properties SENAMA milik si MergedCell
mudah mudahan tidak terlalu jauh...
2010/8/25 zainul ulum [@ yahoo] <zainul_u...@yahoo.com>
>Pakar Excel,
>Saya sedang menulis vba, untuk memilih object (shapes) berdasarkan nama shape
>sbb:
>
>Sub PilihObjetcs()
> Dim rgActive As Range, aShp As Shape
> With ActiveSheet
> Set rgActive = ActiveCell
> If Intersect(rgActive, .[Z4:AE400]) Is Nothing Then Exit Sub
> Set aShp = .Shapes(Range("Z" & rgActive.Row))’ nama shape di kolomZ
> aShp.Select ’memilih object
> Selection.ShapeRange.Line.ForeColor.SchemeColor = 12 ‘memberi warna ke
>object yang dipilih
> End With
>End Sub
>
>Bagaimana caranya agar excel melakukan zoom to center object yang dipilih.
>
>Terimakasih atas pencerahannya.
>Wassalam
>-zainul-
