Outro gif com funcionou transparente em webbroswer

[Marcello Filho]

bom dia, algu´me pode me ajudar a deixar um gif exibido no webbrowser com fundo tranaparente e aparecer na form.

 

código

 

me.webbrower. navigate "c:\comp\animações\imagem1.gif"

 

deixare esse gif sem as bordas e sem o fundo, somente a  animação no form.

[ricardo_br]

Acredito que tenha que abrir o gif num programa de edição de gif e remover o fundo em todas as imagens dele porque gif é uma sequencia de imagems...

[Marcello Filho]

  Em 27/05/2019 às 16:18, ricardo_br disse:

Acredito que tenha que abrir o gif num programa de edição de gif e remover o fundo em todas as imagens dele porque gif é uma sequencia de imagems...

Expandir  

ricardo o gif ja esta sem fundo, oproblema é que qunado eu o exibo na webbrwser, ele fica com o fundo branco da própria propriedade. Seria essa que queria retirar.

[DiF]

@Marcello Filho O .gif é uma imagem em movimento ou estática?  Se for estática, é melhor que ela seja em .png 

 

[Marcello Filho]

  Em 27/05/2019 às 23:56, DiF disse:

@Marcello Filho O .gif é uma imagem em movimento ou estática?  Se for estática, é melhor que ela seja em .png 

 

Expandir  

é em movimento Dif

adicionado 0 minutos depois

@DiF é em movimento

[Marcello Filho]

alguem sabe o código de mudar a cor de uma web browser? a cor da backcolor, aquele quadro branco  que fica atras do gif qunado ele é executado? desde já agardeço.

[Leonardo0308]

Bom dia @Marcello Filho

 

Você pode mudar a cor de fundo de um elemento usando o background-color no css.

 

Segue um LINK de exemplo.

 

  Em 28/05/2019 às 13:53, Marcello Filho disse:

aquele quadro branco  que fica atras do gif qunado ele é executado

Expandir  

 

Se você quiser mudar o background de um GIF sua melhor opção é editar ele em um photoshop da vida.

[Marcello Filho]

@Leonardo0308 obrigado pela dica, mas ele já esta com fundo transparente, o problema esta no fundo do webbrowser do vba, fica branco, queria mudar a cor dele em vba. poderia me ajudar com a linhda de código?

[Leonardo0308]

  Em 28/05/2019 às 14:16, Marcello Filho disse:

vba

Expandir  

 

Você está trabalhando com algum aplicativo do office?

 

  Em 28/05/2019 às 14:16, Marcello Filho disse:

o problema esta no fundo do webbrowser do vba

Expandir  

 

Se for a mesma coisa que eu estou pensando, ele interpreta as paginas do mesmo jeito que o IE, você está abrindo um aquivo nele ou uma pagina web externa?

 

 

 

 

 

[Marcello Filho]

@Leonardo0308 um arquivo gif, e gostaria de deixar o background color dele transparente ou mudá-lo de cor quando o gif é executado.

[Leonardo0308]

Não acho que isso seja possível diretamente.

 

Mas vejo duas opções, mudar o background do GIF para a cor desejada ou executar o GIF através de um arquivo HTML e ai sim mudar a cor de fundo através do CSS.

[Marcello Filho]

@Leonardo0308 assim, tenho um gif na pasta do cumputador. e inseri o seguinte código:

Private Sub b1_Click()
Me.wb.Navigate "C:\Users\CELL2\Desktop\GIF\mary.gif"

End Sub

 

esse wb = webbrowser. gostaria que o funo dele ao ser exceutado ficasse de outra cor ou transparente.

[Leonardo0308]

Não conheço nenhuma forma de deixar o web browser transparente e para mudar a cor, é o que eu falei acima.

[Marcello Filho]

@Leonardo0308 obrigado pela atenção.

[Erwin T. Steigleder]

Olá
Sei que é uma dúvida antiga, mas pesquisando consegui um bom resultado para alterar o background color do WebBrowser e ainda retirar as bordas 3D e redimensionar o tamanho da GIF...
Espero que ajude...
Segue o código em VBA:
 

 

Private Sub UserForm_Activate()

'Redefine background-color, retira as bordas 3D e redimensiona a GIF

Dim end_imagem As String

end_imagem = "C:\imagem.gif"
'Linha 1: Define o background-color do fundo da GIF para a cor RGB(240, 240, 240)
'Linha 2: Retira as barras de rolagem vert e horiz (scroll)
'Linha 3: Indica localização da GIF e dimensiona o tamanho da GIF (neste caso, larg e alt=80 pix)
'Obs: As dimensões (Larg e Alt) do WebBrowser devem ser definidas nas propriedades do próprio WebBrowser no formulário
'Linha 4: Apenas fechamento dos comandos HTML
WebBrowser1.Navigate "about:<html><head><style>body {background-color: rgb(240, 240, 240)}</style></head>" & _
                            "<body scroll='no'>" & _
                            "<img src='" & end_imagem & "' style='width:80; height:80'>" & _
                            "</img></body></html>
 

End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
'Elimina as Bordas 3D do WebBrowser transformando em estilo Flat (sem bordas)

WebBrowser1.Document.body.Style.Border = "none"
End Sub