-->

  • Menampilkan Font Yang Terinstal di Komputer

    Menampilkan font yang terinstal
    Salah satu dari sekian banyaknya dari kelebihan komputer adalah banyaknya jumlah jenis huruf (atau yang biasa kita sebut dengan font) yang bisa digunakan, sehingga memungkinkan kita untuk menghasilkan dokumen dengan variasi jenis huruf.

    Hampir semua Aplikasi yang terdapat di dalam komputer termasuk aplikasi Microsoft Excel memiliki pilihan untuk memilih dan merubah jenis huruf yang ingin digunakan untuk menghasilkan hasil ketikan yang lebih bervariatif.

    Kita tinggal memilih nama jenis huruf yang terdapat di ribbon home kategori font, dan kemudian kita aplikasikan untuk huruf, kata, atau kalimat yang terdapat di dalam sebuah sel ataupun range. Hasilnya adalah, huruf yang terpilih baik di dalam sel ataupun dalam range akan memiliki tampilan sesuai dengan font yang dipilih.

    Akan tetapi, Jika ingin menampilkan semua jenis huruf atau font yang terinstal dalam komputer, barangkali akan sedikit susah jika harus dilakukan secara manual, belum lagi jika font yang terinstal di dalam komputer berjumlah sangat banyak. Maka dari itu, solusi untuk menampilkan semua font yang terinstal di dalam komputer dan menghasilkan tulisan yang sama persis dengan font yang dimaksud adalah dengan menggunakan Macro VBA, seperti langkah berikut ini :
    1. Buka jendela Microsoft Visual Basic Editor dengan menekan tombol pintas ALT + F11
    2. Buat sebuah module baru, kemudian ketikkan baris kode berikut didalamnya
      Sub ShowInstalledFonts()
      Dim DaftarFont As CommandBarControl
      Dim TempBar As CommandBar
      Dim i As Long
      
      Application.ScreenUpdating = False
      Set TempBar = Application.CommandBars.Add
      Set DaftarFont = TempBar.Controls.Add(ID:=1728)
      
      Range("A:A").ClearContents
      For i = 0 To DaftarFont.ListCount - 1
      Cells(i + 1, 1) = DaftarFont.List(i + 1)
      Next i
      
      TempBar.Delete
      Application.ScreenUpdating = True
      End Sub
      
    3. Langkah terakhir adalah, menjalankan kode yang telah dibuat di atas dengan cara menekan ikon atau tombol F5 yang terdapat dalam keyboard.
    Hasil dari kode di atas hanya menampilkan nama-nama font yang terinstal di dalam komputer, seperti tampak dalam tampilan berikut
    Menampilkan Font dengan Macro VBA - excelive
    Jika menginginkan hasil font sesuai dengan aslinya, maka tambahkan baris kode berikut di dalam serangkaian kode For ... Next
    Cells(i + 1, 1).Font.Name = DaftarFont.List(i + 1)
    Hati-hati, jika komputer anda terinstal jumlah font yang cukup banyak, menambahkan baris kode di atas akan maka mengakibatkan system menjadi crash karena kode tersebut membutuhkan memori yang juga banyak.
    Hasil akhir dari penambahan baris kode
    Menampilkan Font dengan Macro VBA - excelive

    Silahkan mencoba, dan pilih mana yang sesuai dengan kebutuhan Anda.
    Terimakasih sudah membaca
    Tutorial: Menampilkan Font Yang Terinstal di Komputer
    Label: - Author: excelive

    Masih mau belajar lagi !

    Yuk, klik tautan berikut ini :

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues, such as the following :
    Macro VBA Excel Functions Custom UDF many more...
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    excelive - kumpulan artikel dan tutorial excel
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger