Wa'alaikumussalam Wr. Wb.
Cara buat :
1. Buka file visio (cukup buka file yang berisi page yang akan diubah
nilainya saja, yang lain ditutup)
2. buka file excel berisi data
3. ke VBE dengan menekan ALT F11
4. menu Insert -> Module
5. copas script ini ke sana :
'anggap saja nama shape visio untuk data no 1 bernama shape1
public sub *GantiTeksVisio*()
dim visApp as object, visShape as object
set visapp=getobject( , "Visio.Application")
'misal untuk shape visio bernama shape1 akan diisi dengan teks dari cell
c2 digabung dengan isi d2
'lakukan juga untuk shape yang lain dengan mengganti nama shape dan
rujukan range c2 dan d2
'ganti chr$(10) dengan " " jika ingin diubah dari karakter enter menjadi
spasi sebagai jarak antar nilainya
visapp.activepage.shapes("shape1").text = activesheet.range("c2").value
& chr$(10) & activesheet.range("d2").text
end sub
6. kembali ke worksheet dengan menekan ALT F11
7. save as file dengan ALT F lalu tekan A -> pilih save as type adalah xlsm
-> tekan Save
Cara jalankan :
1. Buka file visio (cukup buka file yang berisi page yang akan diubah
nilainya saja, yang lain ditutup)
2. Buka file berekstensi xlsm hasil save as saat buat Macro
3. aktifkan cell A1 di sheet data sumber visio
4. jalankan macro dengan menekan ALT F8 -> pilih nama macro
*GantiTeksVisio*-> tekan Run
nah... yang jadi masalah,
script di atas hanya hasil imajinasi karena ndak punya visio.
silakan mempelajari dasar-dasar Macro (di folder milis [lihat di website
milis]).
semoga ada BeExceller yang punya visio yang menyempurnakan script diatas
kalau memungkinkan untuk diperbaiki.
Wassalam,
Kid.
2013/2/4 Mila Gautama <[email protected]>
> **
>
>
>
> Assalamualaikum para Master....
>
> Saya seorang newbie dalam ilmu macro excel. Kali ini saya ingin mencoba
> untuk membuat macro excel yang bisa link ke aplikasi lainnya (dalam kasus
> ini adalah Microsoft Visio).
> Begini cara kerjanya :
>
> [image: Inline image 1]
>
> Nilai pada Kolom "Habis (%)" dimasukkan ke dalam chart di Visio, seperti
> gambar di bawah ini.
>
> [image: Inline image 2]
>
> Selama ini saya melakukannya manual, namun datanya semakin banyak dan
> sulit untuk dilakukan manual lagi.
> Saya sudah mencoba untuk me-record macro dari excel maupun dari visio,
> namun ketika di-run ulang, tidak berhasil. Mungkin karena menggabungkan dua
> aplikasi yang berbeda, jadi tidak bisa.
> Mohon bantuan para Master untuk kasus ini ya...
> Terimakasih....
> **terlampir contoh filenya.
>
>
> Regards,
> Milla
>
>
>
>
>
>
