Excel VBA - Fontes

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba fontes selecao de fontes e caracteres ascii vba fontes selecao de fontes e caracteres ascii

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 824

    Saberexcel - o site das macros
    Exemplo de macros e planilha do Aplicativo Microsoft Excel VBA, contém procedimentos com userforms e commandbuttons, que selecionam fontes, e também caracteres Wingdings , através de Userforms Objetos VBA(Visual Basic Application).

    Option Explicit

    Sub Selecionando_fontes()
    Dim iI As Integer
    Dim wksChars As Worksheet
    Set wksChars = Worksheets("Characters")

    Load frmFontPicker

    With frmFontPicker
    For iI = 1 To 4
    .Controls("cmdFont" & iI).Caption = _
    wksChars.Range("myFont" & iI).Cells(1, 1).Font.Name
    wksChars.Range("myFontName" & iI).Value = _
    .Controls("cmdFont" & iI).Caption
    Next ' iI
    .Show
    End With

    With wksChars
    For iI = 1 To 4
    .Range("myFontName" & iI).Value = _
    .Range("myFont" & iI).Cells(1, 1).Font.Name
    Next ' iI
    End With

    Unload frmFontPicker
    Set wksChars = Nothing
    Application.StandardFont = "Arial Narrow"
    End Sub

    CRIANDO UM MENU

    Option Explicit

    Sub Create_Menu()
    Dim MyBar As CommandBar
    Dim MyPopup As CommandBarPopup
    Dim MyButton As CommandBarButton

    Delete_Menu

    Set MyBar = CommandBars.Add(Name:="My Fonts", _
    Position:=msoBarFloating, temporary:=True)

    With MyBar
    .Top = 125
    .Left = 850

    Set MyButton = .Controls.Add(Type:=msoControlButton)
    With MyButton
    .Caption = "Select Fonts"
    .Style = msoButtonCaption
    .BeginGroup = True
    .OnAction = "SelectFonts"
    End With
    .Width = 100
    .Visible = True
    End With
    End Sub

    Sub Delete_Menu()
    On Error Resume Next
    CommandBars("My Fonts").Delete
    On Error GoTo 0
    End Sub

    '-----------------------------------'

    EM OUTRO MÓDULO INSIRA OS CÓDIGOS:
    Sub Macro1()
    With Application
    .UserName = "E_Marcondes"
    .StandardFont = "Arial Narrow"
    .StandardFontSize = "10"
    .DefaultFilePath = "C:\VBA\"
    .EnableSound = False
    .RollZoom = False
    End With
    End Sub

    Sub Macro2()

    Application.Goto Reference:="myFont1"
    With Selection.Font
    .Name = "Courier New"
    .FontStyle = "Regular"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    End With
    End Sub

    Sub Abrir_caixa_dialogo_fonte()
    Application.Dialogs(xlDialogFont).Show
    End Sub

    Sub abrir()
    wksChars.Select
    frmFontPicker.Show
    End Sub


    NO MODULO DE CÓDIGO DO USERFORM

    Option Explicit
    Dim myFontName As String
    Dim wksChars As Worksheet
    Dim rngChars As Range
    Dim bFont As Boolean

    Private Sub subFontFormatDialog(myFontNumber As Integer)
    Dim myFontName As String
    '''Dim myFontNumber As Integer
    Dim wksChars As Worksheet
    Dim rngChars As Range
    Dim bFont As Boolean

    Set wksChars = Worksheets("Characters")

    Set rngChars = wksChars.Range("myFont" & myFontNumber)

    rngChars.Select
    bFont = Application.Dialogs(xlDialogFormatFont).Show
    DoEvents

    Me.Controls("cmdFont" & myFontNumber).Caption = _
    wksChars.Range("myFont" & myFontNumber).Cells(1, 1).Font.Name

    wksChars.Cells(1, 1).Select
    Set rngChars = Nothing
    Set wksChars = Nothing
    End Sub

    Private Sub cmdFont1_Click()
    subFontFormatDialog 1
    End Sub

    Private Sub cmdFont2_Click()
    subFontFormatDialog 2
    End Sub

    Private Sub cmdFont3_Click()
    subFontFormatDialog 3
    End Sub

    Private Sub cmdFont4_Click()
    subFontFormatDialog 4
    End Sub

    Private Sub cmdOkay_Click()
    Me.Hide
    End Sub


    Aplicativo Microsoft Excel VBA --(( SaberExcel VBA ))--


    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA