excele font ekleme

[mahmud]

arkadaşlar kolay gelsin
word'a eklediğim fontu excel'e
ekleyebilir miyim? yada nasıl görebilirim?

 

[security]

1. Denetim Masası'nda Görünüm ve Temalar'ı tıklatın.
2. Dosya menüsünde Yeni Yazı Tipi Yükle'yi tıklatın.
3. Sürücü listesinde istediğiniz sürücüyü tıklatın.
4. Klasörler listesinde, eklemek istediğiniz yazı tiplerini içeren klasörü çift tıklatın.
5. Yazı tipi listesi'nin altında eklemek istediğiniz yazı tipini tıklatın ve sonra Tamam'ı tıklatın.

 

[Murat OSMA]

Alternatif olarak şu kodları bir deneyiniz;

Sub Emre()
    Const FONTS = &H14&
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FONTS)
    objFolder.CopyHere ThisWorkbook.Path & "\fontadı.ttf"
End Sub

Ya da şu VBScript kodlarını da deneyebilirsiniz;

sub mosma
Dim dosya
basla = timer
Set fs = CreateObject("Scripting.FileSystemObject")
Set evn = fs.GetSpecialFolder(0)
Set osma = CreateObject("WScript.Shell")
    desktop = osma.SpecialFolders("Desktop")
dosya = evn & "\fonts\"
If fs.fileexists(dosya & "BirchStd.otf") = true Then
call ac
else
fs.Copyfile desktop & "\BirchStd.otf", dosya & "BirchStd.otf"
bitir = timer
do while not bitir - basla > 2
bitir = timer 
loop
'if msgbox("Dosya açılsın mı ? ",36,"Www.") = 6 then
call ac
'end if
End If
end sub

sub ac
desktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Set appexc = CreateObject("excel.application")
appexc.Workbooks.Open (desktop & "\Font Yükleme.xls")
appexc.visible=true
end sub

call mosma

Not: WinRar içindeki dosyaları masaüstüne çıkarın.