Excel VBA Shapes 29 modificar caracteres cor tamanho Planilha

PROMOÇÃO ESPECIAL – CURSO EXCEL VBA EXPERT – TODO MATERIAL DIDÁTICO Adquirir o Material Didático Escola SaberExcel VBA Estudos

Planilha Excel VBA Shapes 29 modificar caracteres cor tamanho

Com Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), aprenderemos como mudar o tamanho e a cor da fonte em um shapes em determinado intervalo de caracteres em uma frase.
‘//===== alterar tamanho e cor da fonte (intervalo de caracteres em um shape)

Sub sbx_modificar_tamanho()
ActiveSheet.Shapes(“sbx_caracter”).TextFrame.Characters(Start:=19, Length:=10).Font.Size = 18
ActiveSheet.Shapes(“sbx_caracter”).TextFrame.Characters(Start:=19, Length:=10).Font.Bold = True
End Sub

Sub sbx_shapes_fonte_cor()
ActiveSheet.Shapes(“sbx_caracter”).TextFrame.Characters(Start:=19, Length:=10).Font.Size = 18
ActiveSheet.Shapes(“sbx_caracter”).TextFrame.Characters(Start:=19, Length:=10).Font.ColorIndex = Int(Rnd * 56) ‘Bold = True
End Sub

Sub sbx_voltar_original()
ActiveSheet.Shapes(“sbx_caracter”).TextFrame.Characters(Start:=19, Length:=10).Font.Size = 8
ActiveSheet.Shapes(“sbx_caracter”).TextFrame.Characters(Start:=19, Length:=10).Font.Bold = False
ActiveSheet.Shapes(“sbx_caracter”).TextFrame.Characters(Start:=19, Length:=10).Font.ColorIndex = 1 ‘Bold = True
End Sub

Sub sbx_visualizar_macro()
Dim resposta As String
resposta = MsgBox(“deseja visualizar(tela ou vbe)?” & vbCrLf & ” se SIM = Tela” & vbCrLf & ” se NAO = VBE”, vbYesNo, “Saberexcel – o site das macros”)
If resposta = 6 Then
Saber1.Shapes(“sbx_01″).Visible = True
Else
Application.Goto reference:=”sbx_modificar_tamanho”
End If
End Sub

Sub sbx_ocultar_shapes()
Saber1.Shapes(“sbx_01”).Visible = False
End Sub

‘//===== comparando com macro gravada
Sub sbg_macro_gravada()
Range(“G29”).Select
ActiveSheet.Shapes.Range(Array(“sbx_caracter”)).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(19, 10).Font.Size = 20
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(19, 10).Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(16, 25, 243)
.Transparency = 0
.Solid
End With
Range(“D4”).Select
End Sub

Sub sbg_macro_gravada2_voltar()
Range(“G29”).Select
ActiveSheet.Shapes.Range(Array(“sbx_caracter”)).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(19, 10).Font.Size = 8
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(19, 10).Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(13, 13, 13)
.Transparency = 0
.Solid
End With
Range(“D4”).Select
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.