word'de fontlar Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub ShowInstalledFonts()
Dim FontNamesCtrl As CommandBarControl, FontCmdBar As CommandBar, tFormula As String
Dim fontName As String, i As Long, fontCount As Long, fontSize As Integer
Dim stdFont As String
    fontSize = 0
    fontSize = InputBox("Enter Sample Font Size Between 8 And 30", _
        "Select Sample Font Size", 12)
    If fontSize = 0 Then Exit Sub
    If fontSize  30 Then fontSize = 30
    Set FontNamesCtrl = Application.CommandBars("Formatting").FindControl(ID:=1728)
    If FontNamesCtrl Is Nothing Then
        Set FontCmdBar = Application.CommandBars.Add("TempFontNamesCtrl", _
            msoBarFloating, False, True)
        Set FontNamesCtrl = FontCmdBar.Controls.Add(ID:=1728)
    End If
    Application.ScreenUpdating = False
    fontCount = FontNamesCtrl.ListCount
    Documents.Add
    stdFont = ActiveDocument.Paragraphs(1).Range.Font.Name
    ' add heading
    With ActiveDocument.Paragraphs(1).Range
        .Text = "Installed fonts:"
    End With
    LS 2
    ' list font names and font example on every other line
    For i = 0 To FontNamesCtrl.ListCount - 1
        fontName = FontNamesCtrl.List(i + 1)
        If i Mod 5 = 0 Then Application.StatusBar = "Listing font " & _
            Format(i / (fontCount - 1), "0 %") & " " & _
            fontName & "..."
        With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
            .Text = fontName
            .Font.Name = stdFont
        End With
        LS 1
        tFormula = "abcdefghijklmnopqrstuvwxyz"
        If Application.International(wdProductLanguageID) = 47 Then
            tFormula = tFormula & "æøå"
        End If
        tFormula = tFormula & UCase(tFormula)
        tFormula = tFormula & "1234567890"
        With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
            .Text = tFormula
            .Font.Name = fontName
        End With
        LS 2
    Next i
    ActiveDocument.Content.Font.Size = fontSize
    Application.StatusBar = False
    If Not FontCmdBar Is Nothing Then FontCmdBar.Delete
    Set FontCmdBar = Nothing
    Set FontNamesCtrl = Nothing
    ActiveDocument.Saved = True
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Sub

Private Sub LS(lCount As Integer)
' adds lCount new paragraph(s) at the end of the document
Dim i As Integer
    With ActiveDocument.Content
        For i = 1 To lCount
            .InsertParagraphAfter
        Next i
    End With
End Sub

Benzer Sonuçlar
No	Makro Adı
1	word'de fontlar
2	excel fontları
3	excel fontları 2
4	fontları sayfaya yazdırma
5	microsoft outlookdan uyarı e-maili göndersin
6	userformsuz diyalog kutusu
7	Yanlış Kelimelerle Hücreleri Vurgulayın: Yazım hatası nedeniyle tüm hücreleri kontrol etmek zorlaşırsa bu kod tam size göre. Seçimdeki her bir hücreyi kontrol eder ve yanlış yazılmış bir kelimenin bulunduğu hücreyi vurgular.
8	sayfa ekle a1 hücresine otomatik olarak sayfanin adinin yazilmasi
9	vba penceresinin açilmasini ve kodlara ulaşilmasini engelleyen ve açan kodlar
10	hesap makinesi açma
11	30 excel dosyası içinde bir kelime aratma
12	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?
13	yılı yaz sayfalara ayları ekler
14	formülleri yeni sayfada listeler
15	kitapta ne kadar formül varsa ayrıntılı olarak belirtir (yeni sayfada)
16	kitapta ne kadar refers varsa ayrıntılı olarak belirtir (yeni sayfada)
17	sayfa korumalarını kaldırma
18	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
19	ayları sayfa olarak ekler günleri ayrıntılı olarak belirtir
20	menü çubuğunun silinmesi ve özel bir menünün oluşturulması

Benzer Sonuçlar

Makro Adı

word'de fontlar

excel fontları

excel fontları 2

fontları sayfaya yazdırma

microsoft outlookdan uyarı e-maili göndersin

userformsuz diyalog kutusu

Yanlış Kelimelerle Hücreleri Vurgulayın: Yazım hatası nedeniyle tüm hücreleri kontrol etmek zorlaşırsa bu kod tam size göre. Seçimdeki her bir hücreyi kontrol eder ve yanlış yazılmış bir kelimenin bulunduğu hücreyi vurgular.

sayfa ekle a1 hücresine otomatik olarak sayfanin adinin yazilmasi

vba penceresinin açilmasini ve kodlara ulaşilmasini engelleyen ve açan kodlar

hesap makinesi açma