Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
Planilha Excel VBA Shapes 40 transferir dados TextBox
Excel VBA Shapes 40 transferir Planilha dados TextBox
TRANSFERIR DADOS TEXTBOX X SHAPES
Com estes macros e procedimentos Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), Usando um objeto USF (TextBox), vamos aprender como transferir dados de uma TextBox para um Objeto shapes na folha de planilha, e também vamos fazer a captura dessa imagem transformá-la em JPG e exibi-la em um objeto Imagem no Userform . Bons Estudos.
Private Sub bt_ir_Click()
ActiveSheet.Shapes(“saberexcel”).TextFrame.Characters.Text = Replace(Me.TextBox1, Chr(13), “”)
End Sub
‘//=====’ aproveitando o exercício vamos fazer um USF que captura a imagem de um determinado
intervalo de Celulas e carrega a imagem desse range em um Objeto Image.
Private Sub UserForm_Initialize()
ChDir ActiveWorkbook.Path
With Saber1
.[a3:d10].CopyPicture
.Paste Destination:=.Range(“A1″) ‘criar um shape
Set s = .Shapes(.Shapes.Count)
s.CopyPicture
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Chart.Export Filename:=”vImagem.jpg”, FilterName:=”jpg”
.Shapes(.Shapes.Count).Delete
.Shapes(.Shapes.Count).Delete
End With
Me.Image1.Picture = LoadPicture(“vImagem.jpg”)
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.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Excel VBA Shapes 40 transferir dados TextBox para Shapes |
| << Verifique a Caixa de Itens Excluídos Também >> |
Excel VBA Shapes 40 transferir dados TextBox para Shapes
