Planilha Excel vba shapes 6 retorna valor celula

22 de novembro de 2013 [email protected] 0 Comentários

Planilha Excel vba shapes 6 retorna valor celula Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), Worksheet_SelectionChange() da folha de panilha retorna o valor da célula Ativa para uma Shapes(Autorforma) retangulo, que acompanha o cursor retornando o valor que for sendo selecionado.
SHAPES AUTOFORMA BUSCA VALORES CELULA ATIVA
'//=========='

 
Clique duas vezes para exibir / ocultar a forma Você pode alterar manualmente o tamanho e a fonte AUTOFORMA.
Esse exemplo de planilha usando os Eventos SelectionChange Duploclick, oculta e ou mostra shapes e valores da célula ativa.
'///==========='

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 And Shapes('sbxIMAGEM').Visible = True Then
If Err <> 0 Then sbx_criar_shapes
Shapes('sbxIMAGEM').Left = ActiveCell.Left
Shapes('sbxIMAGEM').Top = ActiveCell.Top + ActiveCell.Height + 3
Shapes('sbxIMAGEM').TextFrame.Characters.Text = ActiveCell
End If
End Sub 
'///==========='
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Shapes('sbxIMAGEM').Visible = Not Shapes('sbxIMAGEM').Visible
If Shapes('sbxIMAGEM').Visible Then
Shapes('sbxIMAGEM').Left = ActiveCell.Left
Shapes('sbxIMAGEM').Top = ActiveCell.Top + ActiveCell.Height + 3
Shapes('sbxIMAGEM').TextFrame.Characters.Text = ActiveCell
End If
Cancel = True
End Sub
'///==========='
Sub sbx_criar_shapes()
Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 180, 50).Select
Selection.Font.Name = 'Verdana'
Selection.Font.Size = 13
Selection.Name = 'sbxIMAGEM'
Shapes('sbxIMAGEM').Left = ActiveCell.Left
Shapes('sbxIMAGEM').Top = ActiveCell.Top + ActiveCell.Height + 3
End Sub
'///==========='