Hai Heru, Diagram (Excel 2003) tidak mengijinkan proses write terhadap properti text milik object characters walaupun isinya diagram adalah kumpulan shapes. Jadi, mengubah teks dalam setiap shapes di sebuah diagram melalui VBA tidak dimungkinkan walaupun bisa dilakukan secara manual.
Mulai Excel 2007, diagram berubah menjadi SmartArt. Akses terhadap SmartArt melalui VBA ditutup pada Excel 2007 dan dibuka kembali mulai Excel 2010. Contoh penggunaan SmartArt melalui VBA yang hanya bisa digunakan mulai xl2010 seperti dalam file yang ada disini <https://app.box.com/s/a1qyxsqnhdf1w1c840ud2zfidmhtajev>. Wassalam, Kid 2015-07-29 9:17 GMT+07:00 'Heru Safrudin' [email protected] [belajar-excel] <[email protected]>: > > > Begini Mr. Saya ingin membuat diagram organisasi yg secara otomatis dan > bisa berubah secara dinamis sesuai data yg ada > > Contoh yg Mr. Berikan hanya mengubah teks pada satu shape aja. Tapi tidak > bisa untuk mengisi organization chart seperti yg saya maksud (attachment di > email sebelumnya saya lampirkan lagi) > > Berikut ini contoh bawaan excel,ketika saya jalankan kenapa masih ada > error ? > > > > > > Sub AddChildNodesToRoot() > > 'ActiveSheet.Shapes(1).Delete > > Dim nodDiagram As DiagramNode > > Dim shDiagram As Shape > > Dim intCount As Integer > > > > Set shDiagram = ActiveSheet.Shapes.AddDiagram _ > > (Type:=msoDiagramOrgChart, Left:=10, Top:=15, _ > > Width:=400, Height:=100) > > > > ' Add the first node to the diagram. > > shDiagram.DiagramNode.Children.AddNode > > > > ' Establish the first node as the root. > > Set nodDiagram = shDiagram.DiagramNode.Root > > > > ' Add three modes to the diagram. > > For intCount = 1 To 5 > > nodDiagram.Children.AddNode > > Next > > For intCount = 1 To 5 > > Set shText = shpDiagram.DiagramNode.Children.Item(1).TextShape > > shText.TextFrame.Characters.Text = Str(intCount) > > Next intCount > > End Sub > > > > Mohon pengetahuannya > > > > > > > > > > > > > > > > > > > > ---------- Pesan terusan ---------- > Dari: "'Mr. Kid' [email protected] [belajar-excel]" < > [email protected]> > Tanggal: 2015 7 30 01:44 > Subjek: Re: [belajar-excel] MENGISI DIAGRAM > Kepada: "BeExcel" <[email protected]> > > > > Hai Heru, > > Cara mengubah teks dalam suati shape adalah melalui properti Text. > > Contoh : ada sheet bernama 'data' berisi sebuah shape bernama 'shpSatu' > yang akan diubah bunyi teksnya dengan bunyi 'Kid' > > Sheets("data").shapes("shpSatu").textframe.characters.text = "Kid" > > > > Bagian "data", "shpSatu", dan "Kid" (lengkap dengan petik ganda buka dan > tutupnya) bisa diganti dengan variabel berisi teks tertentu atau rujukan ke > properti nilai data milik suatu range. > > > > Wassalam, > > Kid > > > > > > *From:* Heru Safrudin [mailto:[email protected]] > *Sent:* 25 Juli 2015 11:56 > *To:* '[email protected]' > *Subject:* MENGISI DIAGRAM > > > > Dear para Master, > > > > Adakah yang bisa membantu saya mengisi diagram dibawah ini sesuai nama > pada tabel berikut : > > LEVEL > > NAMA > > AYAH > > ILHAM > > IBU > > FAJRIN > > ANAK1 > > JAUHAR > > ANAK2 > > FARIZ > > ANAK3 > > MAULIDA > > Dengan macro dengan cara klik > > > > > > > > > > > > > > > > > > > > > > >
