Monday, October 1, 2018

√ Vba Excel Instal Font Setting Dengan Rundll32

Font merupakan jenis goresan pena dengan aneka macam jenis variasi yang sesuai dengan desain si pembuat font tersebut. Font biasanya dipakai untuk mengganti jenis huruf. Font biasanya sudah terinstal pada windows dan anda tinggal menggunakannya, kemudian bagaimana jikalau Anda ingin menambahkan font?

Kali ini aku akan membahas bagaimana cara menginstal font memakai coding atau script VBA dimana jendela font setting atau font instal akan dibuka memakai tombol yang telah dibentuk dan dirancang oleh kita sendiri.

Coding untuk membuka Jendela Font


Private Sub CommandButton1_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL FontsFolder", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub
Di dalam windows kita pernah mendengar yang namanya beberapa file Rundll32, nah untuk menampilkan jendela yang dijalankan melalui Runddl32 Anda dapat memakai fungsi Rundll32.Shell32.dll


Anda  dapat memanggil jendela font dengan memakai objek CommandButton menyerupai yang dicontohkan diatas dengan mekanisme klik yang artinya jikalau commandbutton1 diklik oleh User maka jendela font akan muncul dan disinilah Anda dapat menambahkan jenis font gres ke dalam jendela font tersebut.

Demikian, tutorial singkat bagaimana coding atau perintah untuk instal font dalam menambahkan jenis font gres kedalam kotak font. Semoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/