Este fórum está sendo desativado

[Lurosan]

Pessoal, uma ajuda, por favor.

Tenho uma Multipage com várias abas e cada uma dessas abas tem uma imagem. O problema é que, à medida que aumenta a quantidade de aba, aumenta, também, a quantidade de imagem e, consequentemente o tamanho do arquivo Excel fica enorme.

Se eu inserir:
Set Image1.Picture = LoadPicture(Foto)
consigo carregar a imagem para a 1ª aba.

Set Image2.Picture = LoadPicture(Foto)
consigo carregar a imagem para a 2ª aba. E assim sucessivamente...

Gostaria de carregar as imagens diretamente no corpo da Multipage assim que determinada aba fosse aberta, sem necessidade de inserir o objeto Image no momento desenvolvimento do trabalho.

Desde já, meus agradecimentos.

[Basole]

Crie uma pasta para inserir todas as imagens que serão carregadas nas paginas do Multipage.

Renomeie as imagens numerando-as começando do 0 (zero).

Por exemplo "Aba0.jpg"; "Aba1.jpg"; "Aba2.jpg"; "Aba3.jpg ... etc.

No evento Multipage Change:

Código: Selecionar todos

Private Sub MultiPage1_Change()
On Error GoTo Erro
Me.MultiPage1.Pages(Me.MultiPage1.Value).Picture = LoadPicture("C:\Users\NOME_DO_USUARIO\Pictures\Diversas\Aba" & Me.MultiPage1.Value & ".jpg")
Exit Sub
Erro: MsgBox " Imagem nao localizada!. verifique!", vbCritical, ""
End Sub

Conforme selecionar 1 aba a respectiva imagem carregará

Caso queira 'des-selecionar a image carregada em uma aba anterior, acrescente no codigo
Declare em um modulo padrão a variavel oldPage
Public oldPage As Long

Código: Selecionar todos

Me.MultiPage1.Pages(oldPage).Picture = LoadPicture("")
oldPage = Me.MultiPage1.Value

No evento Initialize tambem referencie o valor para oldpage

Código: Selecionar todos

Me.MultiPage1.Pages(Me.MultiPage1.Value).Picture = LoadPicture("C:\Users\NOME_DO_USUARIO\Pictures\Diversas\Aba" & Me.MultiPage1.Value & ".jpg")
oldPage = Me.MultiPage1.Value