Olá amigos, boa tarde.
Alguém poderia me explicar o que o seguinte código faz?
Public Sub lsNovoJogo()
lTamPalavra = Len(Range("Plan2!A" & Range("Plan2!B1").Value).Value)
lfSepararLetras Range("Plan2!A" & Range("Plan2!B1").Value).Value, lPalavra
lPartes = 1
lSituacao = 0
Set lsRange = Range("Plan1!E12")
lPalavraAdv = Range("Plan2!A" & Range("Plan2!B1").Value).Value
For i = 1 To 6
ActiveSheet.Shapes(i).Visible = False
Next
Range("Plan1!E13:AE13").Value = ""
For i = 1 To lTamPalavra
lsRange.Offset(1, i - 1) = i
Next
Range("Plan1!E12:AE12").Value = ""
Range("W3").Value = CStr(lTamPalavra) & " letras."
End Sub
Desde já agradeço.
At.te
csfab
CsFab.
Puxa vida. Os caras debulharam mesmo. Fico impressionado com o que os manos daqui fazem. Pelo q entendi o ultimo mano q mecheu no teu arquivo localizou a dica atravez do ProcV. Eu ainda vou estudar o q fizeram, serviu pra caramba pra mim aprender.
Como deixaram mastigado com as variaveis declaradas para o modulo, dali concatenei ela com o .jpg junto do endereço em um formulario de tamanho fixo.
Vê se é isso ai. Lembra de trocar o endereço aonde vc guarda essas imagens. Vc troca na rotina chamada, carrega imagem. Coloquei uma anotação para vc achar.
Se for isso então topico fechado.
Distribui o joinha para a galera!
Não esquece de mim! 
Ah eu vi q vc queria com 2 botões.
Segue novamente com os 2 botões. 
Lovera, nos dois arquivos dá o seguinte erro quando clico em dica de imagem:
Erro em tempo de execução '53': O arquivo não foi localizado
Quando clico em depurar:
With frm_Imagem
.img_Dica.Picture = LoadPicture(Endereco) (Erro nessa linha fica amarela)
Quando clico em dica texto:
Erro em tempo de execução '1004': Erro de definição de aplicativo ou de definição de objeto
Quando clico em depurar:
Sub Dica()
Application.ScreenUpdating = False
Dim palavra As String
Dim Dica As String
Dim lista As Range
Sheets(2).Activate
Set lista = Range(Cells(1, 1), Cells(linha, 2)) [ERRO]
palavra = Cells(Right(Names("aleatorio"), Len(Names("aleatorio")) - 1), 1)
Dica = Application.WorksheetFunction.VLookup(palavra, lista, 2, 0)
Sheets(1).Activate
MsgBox Dica, , "Dica"
At.te
Sub CarregaImagem()
Dim Endereco As String
'coloca o endereço do arquivo aqui
Endereco = "E:estudo_vbaJOGOCOMIMAGENS" & lPalavraAdv & ".JPG"
With frm_Imagem
.img_Dica.Picture = LoadPicture(Endereco)
End With
frm_Imagem.Show
End Sub
Tá vendo onde está o E: ... (Esse é o endereço onde os arquivos estão na minha maquina. Coloca ai o endereço que estão os arquivos das imagens na sua maquina. Não esquece de ao terminar de colocar o endereço coloca a (barra). O nome do arquivo é a variavel lpalavraAdv, que vai concatenar com a extensão .jpg
E esse arquivo tem q estar na mesma pasta pq facilita.
Tenta ai e me fala.
Lovera, olha fiz como disse:
Deixei tudo em C:jogo, olha o erro pela imagem:
At.te
Bom dia meu velho!
Vamos lá me responde isso.
1. Vc rodou o jogo pelo menos uma vez?
Lembra que tem que escolher o novo jogo. Dai vc pode clicar no dica por texto ou dica por imagem.
Se vc nunca roda o jogo, a palavra sorteada fica dentro de uma variavel chamada LPalavra. Cada vez q vc inicia o excel o jogo fica carregado mas a variavel não. Então tem q rodar pelo menos um jogo para a variavel ser usada e armazenar nela a palavra sorteada. Que com ela ele busca tanto a dica qto a imagem.
2.A grafia da pasta está identico né? Por exemplo o nome da pasta não está em maiuscula "JOGOS" e no endereço do vba vc colocou em minusculas "jogos"?
3. Os arquivos das imagens estão nessa pasta?
No aguardo.
Abs.
lovera.
Perfeito, era só a questão de clicar em novo jogo mesmo.
Muito obrigado.
Quando o jogo estiver totalmente finalizado, irei voltar no post, o coloca-lo.
At.te
csfab
Q firmeza!
Bom final de semana!