on load, show image in excel userform web components

[Megatronixs]

Hi all,

I was looking for a solution that when you open a excel userform that has a web component in it, it will show an image first. When I click a button, it will show a word doc there.
The second part is working, but I would like to show an image when the userform starts and not just show a blank web component.

Is this possible? I just did not find nothing at all on the web and in the in the procedure in VBA editor I also don't see nothing that could work.

Any help is more than welcome ;-)

Greetings.

[patel45]

In this example image1 is hidden in the sheet1 and will be shown on sheet1 , not in userform

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:00"), "imageShow"
End Sub

Sub imageShow()
With ActiveSheet.Shapes("Image1")
   Itop = .Top
   Ileft = .Left
   .Top = 0
   .Left = 0
   .Visible = True
   Pause = 10
   tnow = Timer
   Do While Timer < tnow + Pause
   DoEvents
   Loop
   .Top = Itop
   .Left = Ileft
   ActiveSheet.Shapes("Image1").Visible = False
End With
End Sub

[Megatronixs]

Hi Patel45,

I actualy need to show it in the userform, so your example only shows in the sheet?

greetings.

[patel45]

attach your file, maybe we can adapt the code for the userform

[abousetta]

Attached is a really great example of some of the things you can accomplish with a web browser. I have set it to open an online Excel logo image. You can change this to a local image. You can also navigate to hotmail, input your username/ password and it will log you in.

Hope this helps.

abousetta

[Megatronixs]

Hi Abousetta,

Thanks for the great excel file. I was checking it, and it is working. When I tried to copy part of the code that could work. I was getting nowhere. I guess I miss something but no clue. I did copy the below code, but then I was getting error starting from "UpdateURL"

Option Explicit

'Excel user group page
Dim HOMEPAGE   As String
Dim Ready      As Boolean
Dim StopWatch  As Single

'Private Sub txtaddress_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    'LoadPage

'End Sub

Private Sub txtAddress_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    txtAddress.SelStart = 0
    txtAddress.SelLength = 99

End Sub

Private Sub UserForm_Initialize()

    

    HOMEPAGE = "X:\ACL\ACL Netherlands Corporates\Development\Develop\mift\MiftSupportPortal\Image Folder\fondo.jpg"

    UpdateURL
    txtAddress = HOMEPAGE
    LoadPage
    txtAddress.SetFocus

    Ready = True

End Sub

Sub LoadPage()

    WB.Navigate txtAddress.Text

End Sub



Private Sub cmdHome_Click()

    WB.Navigate "X:\SupportPortal\Image Folder\fondo.jpg"

End Sub



Private Sub WB_DownloadBegin()

    StopWatch = Timer

End Sub

Private Sub WB_DownloadComplete()

    StopWatch = Timer - StopWatch


End Sub

Private Sub WB_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

    txtAddress = URL

End Sub

Private Sub WB_StatusTextChange(ByVal Text As String)

    lblStatus.Caption = Text

End Sub

Private Sub WB_TitleChange(ByVal Text As String)

    Caption = Text

End Sub

Can you please let me know where I went wrong?

Greetings.

[JosephP]

You could just put an image control over the owc component and then set its visible property to false when the button is pressed

[Megatronixs]

Hi JosephP,

Do you have some sample code so I can have a look how to do this? Many things are still new to me and without examples I'm kind of lost.

Greetings.

[JosephP]

Once you put the control on the form and add whatever picture you want at design time the only code is

me.image1.visible = false

changing the name to match your actual control