Fóruns
Microsoft Excel - 2...
Formulários
Imagem no formulari...
 
Notifications
Clear all

Imagem no formulario

 
Formulários
Post Recente por fazerbem 8 anos atrás
8 Posts
2 Usuários
0 Reactions
1,647 Visualizações
RSS
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Ola

Adaptei esta macro abaixo que coloquei dentro de um formulario

Desde que eu restrinja algumas linhas de comando , como podem ver abaixo, Ela funciona corretamente, porem pegando um endereco fixo dentro da planilha. Gostaria que o LOOP abaixo procurarasse o caminho da imagem entre as celulas de M72 a M86, e nao abrir a pesquisa para que eu selecione. Poderiam completar por favor este codigo ?

Private Sub CommandButton1_Click()

Dim Local_Imagem As String
Dim cod As Integer
Dim Linha As String

Linha = 72

' If TextBox1 = "" Then
' MsgBox (" Selecione a imagem ")
' Exit Sub
' Else
' cod = TextBox1
' End If

Sheets("Venda1").Select
' Local_Imagem = Application.GetOpenFilename(filefilter:="Picture Files,*.ico;*.bmp")
Local_Imagem = "C:GerenciaLojafotoBCAA Power.bmp"

'Do Until Sheets("Venda1").Cells(Linha, 5) = ""

'If Sheets("Venda1").Cells(Linha, 5) = cod Then

'Sheets("Venda1").Cells(Linha, 5).Select
'ActiveCell.Offset(0, 8).Select

' If Local_Imagem <> "" Then
Me.Image1.Picture = LoadPicture(Local_Imagem)
Image1.PictureSizeMode = fmPictureSizeModeStretch

' Exit Sub
'End If

'Else
'End If
'Linha = Linha + 1

'Loop

End Sub
 
Postado : 22/10/2016 8:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Veja se ajuda
http://www.globaliconnect.com/excel/ind ... Itemid=475

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/10/2016 8:37 am
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Desculpe a demora, vou traduzir pra tentar entender, dai te falo.

Queria te perguntar uma coisa,

Estando eu numa plan 1, que esta ativa, ao acionar uma macro, esta chama um formulario e neste formulario esta o MENU muitas opcoes deste MENu fazem fechar o formulario MENU e chama a pla2, ou pla3 ...., mas ao sair do formulario e entrar na planilha, esta não fica ativa , apesar de estar na tela, botao rolagem não funciona , teclas direcao tb não e não fica editavel, dai percebi que a rolagem e tudo mais ficou justamente na planilha antes de entrar no MENU. Desta forma entao ao sair e clicar em outra aba qualquer e voltar ai a planilha funciona. Ja fiz de tudo e não funciona, isso ta me deixando doido aqui. Pensei que era meu office, meu notebook, mas não e , outro computador da o mesmo.

Andre

 
Postado : 27/10/2016 5:11 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

Essa questão é muito vaga, pois eu não sei como está a estrutura de código e como que o mesmo deve operar.

Ex: quando você chama o Userform chama como 

UserForm1.Show

ou 

UserForm1.Show vbModeless

?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2016 5:22 am
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Bom dia

Chamo esta macro :

Sub Menu_Principal()
'

'Application.Visible = False


Sheets("Clientes").Visible = False
Sheets("Vendas Feitas").Visible = False
Sheets("Ofertas").Visible = False
Sheets("Empresa").Visible = False
Sheets("Fabricantes").Visible = False
'Sheets("Produtos").Visible = False
Sheets("Consulta QNT").Visible = False
'Sheets("Pesquisar Cliente").Visible = False
'Sheets("Facebook").Visible = False
'Sheets("Formulario de Pesquisa").Visible = False
Sheets("Despezas").Visible = False
Sheets("Faturamento").Visible = False
Sheets("Aniversario").Visible = False
Sheets("BD").Visible = False
Sheets("Estoque").Visible = False
Sheets("Faturas").Visible = False
Sheets("Markup").Visible = False
Sheets("Lancamentos Entrada & Saida").Visible = False
Sheets("Ranking").Visible = False
Sheets("Site").Visible = False
Sheets("Categoria").Visible = False


Menu.Show

End Sub

Em seguida entra o Formulario MENU

Dai escolho o que quero no Menu e por exemplo escolho Botao Fabricantes, onde o camando abaixo fecha este formulario MENU e abre a planilha Fabricantes. Ate abre a planilha mas a planilha que fica ativa 'e a que eu estava antes de entrar no formulario MENU, mesmo se ela estiver oculta ainda fica ativada, pois descobri que rolando o botao do mose quem se mexia era ela. Dai se eu clicar em qualquer planilha visisvel e voltar em Fabricamtes ai sim funciona.

Esse fica dentro do botao dentro do Formulario MENU

Private Sub Fabricantes_Click()
Unload Menu
Sheets("Fabricantes").Visible = True
' Application.Visible = True
Worksheets("Fabricantes").Activate
Sheets("Fabricantes").Select
End Sub
 
Postado : 28/10/2016 7:55 am
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Cara vc matou a pau !!!!!!!!

Acrescentei vbModeless e nao e que deu certo !!!

Me explique o que faz este comando vai !

Grato, e ganhei meu dia !!!!!!!

Andre

 
Postado : 28/10/2016 7:58 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Essa opção permite a intereção entre o arquivo e o userform.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2016 11:46 am
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Estou a uns 3 meses nesse bug , mas em fim resolveu, vc resolveu n'e, muito Obrigado por mais esta.

Em breve postarei aqui a Planilha pronta conforme anunciei, tenho certeza que sera util a alguem.

Abs

Andre

 
Postado : 28/10/2016 12:37 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico