Re: [belajar-excel] Gabung Beberapa Shapes Menjadi Satu Shape (Merge Shapes)

Slamet, Thanks a lot, kid 2009/3/12 Slamet Harto > Kid, > > coba pake ini , tinggal rapihin posisinya aja > > Option Explicit > Public Sub GabungShape() > > ActiveSheet.Shapes.SelectAll > Selection.Copy > Range("A7:A37").PasteSpecial > > End Sub > > yang ini cuma iseng aja > Sub CekNamaShap

Re: [belajar-excel] Gabung Beberapa Shapes Menjadi Satu Shape (Merge Shapes)

Kid, coba pake ini , tinggal rapihin posisinya aja Option Explicit Public Sub GabungShape() ActiveSheet.Shapes.SelectAll Selection.Copy Range("A7:A37").PasteSpecial End Sub yang ini cuma iseng aja Sub CekNamaShapes() Dim Shp As Shape For Each Shp In ActiveSheet.Shapes