Notifications
Clear all

Maximizar imagem de fundo do formulário

6 Posts
2 Usuários
0 Reactions
1,348 Visualizações
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, boa tarde!

Por favor, alguém poderia apenas me informar onde está o erro no código abaixo?

Private Sub UserForm_Initialize()

Me.Height = 150

Me.Width = 200

End Sub

O código somente funciona no meu computador (em outros ele simplesmente ignora)

agradeço pela atenção de todos.

 
Postado : 13/04/2018 9:06 am
(@klarc28)
Posts: 971
Prominent Member
 

O código não tem erro. O problema está relacionado às configurações da tela e do sistema operacional da máquina.

    Application.WindowState=xlMaximized
With Me
        .Height = Application.Height - 13
        .Width = Application.Width - 13
    End With
 
Postado : 13/04/2018 9:10 am
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Por favor, observe esse modelo aqui

https://drive.google.com/file/d/1cnUdEq ... sp=sharing

eu não estou conseguindo rodar em outros computadores

muito obrigado

 
Postado : 13/04/2018 9:30 am
(@klarc28)
Posts: 971
Prominent Member
 

O código que você postou refere-se às dimensões do formulário.
O que você deseja fazer é em relação à imagem de fundo do formulário.
São duas coisas diferentes.
Me é o próprio formulário.
Me.Picture é a imagem do formulário.
Você estava se referindo ao formulário, mas deveria se referir à imagem do formulário.
Edite o título deste tópico para:

Maximizar imagem de fundo do formulário

Private Sub UserForm_Initialize()
Me.PictureSizeMode = fmPictureSizeModeStretch
End Sub
 
Postado : 13/04/2018 10:08 am
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

deu certo no seu computador?

aqui não estou conseguindo.

já tentei, pesquise e não vai.

se o userform for maior que a imagem, essa imagem de plano de fundo não "acompanha " as dimensões do form.

você porderia, por favor, realizar um teste no seu computador?

deixe o form ocupar a tela inteira do video e aplique o codigo na imagem (para verificar se o plano de fundo também vai ser preenchido por total)

Eu não estou conseguindo.

muito obrigado

 
Postado : 13/04/2018 10:19 am
(@klarc28)
Posts: 971
Prominent Member
 

Testei o código com um formulário e uma imagem que tenho aqui. Funcionou perfeitamente.

Testei o código no seu arquivo. Funcionou perfeitamente.

Se não funcionar aí, é necessário mandar benzer.

Não há mais nada que se possa fazer com código.

Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized

Me.Height = Application.Height

Me.Width = Application.Width

Me.Left = Application.Left

Me.Top = Application.Top
Me.PictureSizeMode = fmPictureSizeModeStretch
End Sub
 
Postado : 13/04/2018 10:27 am