Home Excel - Dicas Microsoft Excel VBA Excel VBA - Fontes Excel planilha vba fontes selecao de fontes e caracteres ascii

Excel planilha vba fontes selecao de fontes e caracteres ascii

E-mail Imprimir PDF

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


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



  Baixe o exemplo de planilha contendo os procedimentos e rotinas acima
Excel planilha vba fontes selecao de fontes e caracteres ascii (40.3 kB)

Última atualização em Sáb, 13 de Agosto de 2011 18:39  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4856
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19303
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33032
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455861
Aprenda MS Excel VBA

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