MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Instalar múltiplas fontes via vb

    Compartilhe

    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 14/08/2011

    Instalar múltiplas fontes via vb

    Mensagem  leoni_dias em 24/4/2018, 13:24

    Bom dia.

    Pesquisei na net acerca de um módulo para instalação de fontes em bloco, várias de uma pasta e encontrei o código abaixo, mas não estou conseguindo adaptar para uso pessoal.

    Peço, se puderem, dicas para o funcionamento.]

    Option Explicit
    ' Installing multiple Fonts


    Dim objShell, objFSO, wshShell
    Dim strFontSourcePath, objFolder, objFont, objNameSpace, objFile

    Set objShell = CreateObject("Shell.Application")
    Set wshShell = CreateObject("WScript.Shell")
    Set objFSO = createobject("Scripting.Filesystemobject")

    strFontSourcePath = "\\dominio\NETLOGON\FONTES"

    If objFSO.FolderExists(strFontSourcePath) Then

    Set objNameSpace = objShell.Namespace(strFontSourcePath)
    Set objFolder = objFSO.getFolder(strFontSourcePath)

    For Each objFile In objFolder.files
    If LCase(right(objFile,4)) = ".ttf" OR LCase(right(objFile,4)) = ".otf" Then
    Set objFont = objNameSpace.ParseName(objFile.Name)
    If objFSO.FileExists("C:\WINDOWS\Fonts\" & objFile.Name) = False Then
    objFont.InvokeVerb("Install")
    Set objFont = Nothing
    End If
    End If
    Next
    Else
    Wscript.Echo "Font Source Path does not exists"
    End If
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: Instalar múltiplas fontes via vb

    Mensagem  FabioPaes em 24/4/2018, 14:06

    Poste Exemplos! Com as fontes e se possível onde achou o Código!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 14/08/2011

    Re: Instalar múltiplas fontes via vb

    Mensagem  leoni_dias em 24/4/2018, 15:05

    Bom dia.

    Não coloquei o link externo por achar que estava violando a regra número 14 que diz:

    "É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox."

    Mas se pode, vamos lá.

    Link: (Copiar e Colar no navegador)
    social.technet.microsoft.com/Forums/windows/pt-BR/8ca8690f-4caa-45c3-8740-ec5513e2ae1f/instalar-fontes-via-script-ou-gpo?forum=winsrv2003pt
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: Instalar múltiplas fontes via vb

    Mensagem  FabioPaes em 24/4/2018, 17:18

    É proibido add como Link amigo! Mas como texto pode Add, veja que editei sua Mensagem!

    Faltou o Exemplo do Access com as fontes!


    Outra coisa, esse Código é para GPO Windows e Não para VB, portanto duvido que funcione!

    GPO: GPO também conhecida como group policy ou diretiva de grupo é um conjunto de configurações que permite que você personalize diversos recursos dos usuários e dos computadores


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 24/9/2018, 05:18