Coba dengan prosedur berikut :
public sub SelectShapeAh()
dim shp as shape
dim sRngAddr as string 'var ini bisa jadi input parameter agar
lebih luwes
srngaddr = "$D$2"
sheet1.activate
for each shp in sheet1.shapes
if shp.topleftcell.address=srngaddr then
shp.select
endif
next shp
end sub
Wassalam,
Kid.
2012/11/14 <the_x_mi...@yahoo.com>
> **
>
>
> Hi all,
>
> Saya sedang membuat form dimana user akan menginput sebuah image ke dalam
> suatu cell.
> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
> jika ingin men-select image yang ada di cell D2 saja?
>
> _
>
>
