How to adjust size of .gif to be smaller in Microsoft Access Web Browser Control?

I've got some perfect .gifs in a web browser control in Microsoft Access side by side on some entry screens.  It looks really cool.
However I'm not sure how to shrink the image as is shown on other webpages a little smaller than what it currently looks like.

Does anyone know a touch of html and where to put it for this web browser control in Microsoft Access using VBA?

Here's a sample database I put together:
The gif is taken from:

http://i.imgur.com/3h6gipf.gif

Form1 is the size I want the .gif to be
Form2 is the only way I know how to display it all
I want to reduce the size though!
EEdbsample.accdb
LVL 1
stephenlecomptejrAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Scott Fell, EE MVEDeveloper & EE ModeratorCommented:
What is the current physical size and can you provide a few lines of the rendered html?  If the physical size is optimized for web already, you can typically only make images gif or jpg's smaller, not larger without distorting. However, it is still best to use the original size (use multiple images) rather than resizing in a browser.

Here is one way
  <div>
  <img src="https://www.experts-exchange.com/images/experts-exchange/topHeader/expertsExchangeLogo.svg">
  </div>
  
  <div>
    <img class="small" style="width:50px;" src="https://www.experts-exchange.com/images/experts-exchange/topHeader/expertsExchangeLogo.svg">
  </div>
  <div>
    <img class="large" style="width:300px;"  src="https://www.experts-exchange.com/images/experts-exchange/topHeader/expertsExchangeLogo.svg">
  </div>

Open in new window

And a working example https://jsbin.com/hujuyezoma/edit?html,output

I can't speak to the vba portion, but this is one way to do it with html.
stephenlecomptejrAuthor Commented:
Put in a sample above as to what I was talking about.
Scott Fell, EE MVEDeveloper & EE ModeratorCommented:
I am  not well versed in Access.  I thought you were generating html that outputs to a browser.  On the form, if you insert it as an image, then you can change the Size Mode property to zoom and it will resize.

When you insert the image through the ribbon menu, you will be prompted to select an image. Just use http://i.imgur.com/3h6gipf.gif

https://docs.microsoft.com/en-us/office/vba/api/access.image.sizemode
Price Your IT Services for Profit

Managed service contracts are great - when they're making you money. Yes, you’re getting paid monthly, but is it actually profitable? Learn to calculate your hourly overhead burden so you can master your IT services pricing strategy.

stephenlecomptejrAuthor Commented:
Yes that won't work for me because the only display of a .gif properly to keep its motion is through Microsoft Browser Web Control.
Scott Fell, EE MVEDeveloper & EE ModeratorCommented:
If that is the case, you will need to make the image you are bringing in the exact size you want in your form.  If you do not have a photo editing application, you can use https://pixlr.com/editor/ or https://www.fotor.com or https://www.pizap.com/photo_editor.  Just resize to what you need and either save to your drive or upload to back to imgur.
stephenlecomptejrAuthor Commented:
Actually this website was the one that enabled me to shrink the size of the .gif in the Form Load startup event:

http://www.utteraccess.com/forum/index.php?showtopic=2025030

My only error in directly copying and pasting was having to declare what ABOUT_BLANK was
I just guessed it to be Private Const ABOUT_BLANK As String = ""

But so far it works and shrinks the .gif file.

Private Const ABOUT_BLANK As String = ""

Private Sub Form_Load()
   Call fLoadImg(Me.xWeb, "http://i.imgur.com/3h6gipf.gif"
End Sub

Private Function fLoadImg(xWebCtl As Object, strImgPath As String) As Boolean

  Dim strHTML As String
  
  strHTML = "<html>" & vbNewLine & _
            "  <head>" & vbNewLine & _
            "    <script>" & vbNewLine & _
            "      function set_orientation(imgID){" & vbNewLine & _
            "        var imgPass = document.getElementById('myImg');" & vbNewLine & _
            "        var width = imgPass.width;" & vbNewLine & _
            "        var height = imgPass.height;" & vbNewLine & _
            "        if(width > height) {" & vbNewLine & _
            "          imgPass.style.width = '100%';" & vbNewLine & _
            "        } else {" & vbNewLine & _
            "          imgPass.style.height = '110%';" & vbNewLine & _
            "        }" & vbNewLine & _
            "        return 0;" & vbNewLine & _
            "      }" & vbNewLine & _
            "    </script>" & vbNewLine & _
            "  </head>" & vbNewLine & _
            "  <body>" & vbNewLine & _
            "    <div style='width: 100%'>" & vbNewLine & _
            "      <img id='myImg' onload='set_orientation(" & Chr(34) & "myImg" & Chr(34) & ")' src='" & strImgPath & "' />" & vbNewLine & _
            "    </div>" & vbNewLine & _
            "  </body>" & vbNewLine & _
            "</html>"
  
  With xWebCtl
    .Navigate ABOUT_BLANK
    Call fWaitComplete(.Object)
    If Len(strHTML) Then
      .Document.Write strHTML
      Call fWaitComplete(.Object)
    End If
  End With

End Function

Public Function fWaitComplete(objWB As Object, _
                              Optional iTimeoutSecs As Integer = 20) As Boolean

  Const READYSTATE_COMPLETE As Integer = 4
  Dim dtStart As Date
  
  dtStart = Now
  With objWB
    Do While .ReadyState <> READYSTATE_COMPLETE   '   Or .Busy
      If DateDiff("s", dtStart, Now) > iTimeoutSecs Then Exit Function
      DoEvents
    Loop
    fWaitComplete = .ReadyState = READYSTATE_COMPLETE
  End With

End Function

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
stephenlecomptejrAuthor Commented:
Thanks for trying to help though.  Once you posted that html stuff - I knew I had to find something similar to accomplish this.

I also start using .gifs like something that runs fast to simulate and make it seem Microsoft Access is fast upon starting up!  And it works great.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
HTML

From novice to tech pro — start learning today.