การปรับขนาดภาพ File.gif แสดงบน UserForm VBA

[pro602]

สวัสดีครับอาจารย์และพี่ๆสมาชิก
ช่วยแนะนำการนำภาพ File.gif ไปแสดงบน UserForm VBA ให้ผมหน่อยครับ ตอนนี้ผมใช้WebBrowser (Toolbox) ในการใส่ภาพ .gif
ภาพมีขนาดใหญ่ ผมอยากให้ภาพแสดงขนาดพอดีกับเฟรมที่เราลากไว้ และไม่แสดงกรอบเฟรมได้ไหมครับ code ที่ผมใช้ในตอนนี้ครับ
มี Code หรือ Tool ตัวไหนที่จะนำภาพ .gif ไปแสดงบน UserForm ได้บ้างครับ
code ที่ผมใช้ครับ

Code: Select all

Private Sub UserForm_Initialize()
    Me.WebBrowser1.Navigate2 "C:\Users\xxxx\Pictures\6iroaa9MT.gif"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

[logic]

ทำตัวอย่างเลียนแบบไฟล์จริง ใสโค้ดแล้วแนบมาด้วย จะได้ช่วยกันดูได้ครับ

[pro602]

ทำตัวอย่างเลียนแบบไฟล์จริง ใสโค้ดแล้วแนบมาด้วย จะได้ช่วยกันดูได้ครับ

ผมได้ลองนำCode ที่ได้รับคำแนะนำมาจากอาจารย์ท่านหนึ่งมาทดลองปรับใช้งานดู ได้ขนาดภาพอยู่ในกรอบตามต้องการแล้ว ถ้าเราไม่ต้องการให้เห็นกรอบหรือรูปเฟรมให้แสดงเห็นแต่ภาพเคลื่อนไวลอยๆสามารถทำได้ไหมครับกับ WebBrowser(ToolBox) ถ้าได้ต้องปรับCodeตรงจุดไหนหรือมี Tool ตัวไหนที่สามารถนำมาใช้กับ File.gif ให้แสดงภาพลอยๆบน UserForm ได้บ้างครับ

Code: Select all

Private Sub UserForm_Initialize()
    Me.WebBrowser1.Navigate "about:blank"
Me.WebBrowser1.Document.Write "<img style=""width:100%;"" src=""C:\Users\Administrator\Pictures\6iroaa9MT.gif"">"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub

(User : Test ,Pass : 0000)

[snasui]

เท่าที่ลองดู Property ของ Control WebBrowser ไม่มี Property ใดให้ Set Background ได้ครับ

สำหรับ img tag ตรง <img style=...ซึ่งเป็น HTML สามารถใส่ Background Color เพิ่มได้ แต่ลองใส่แล้วไม่เกิดผลใด ๆ เช่นกันครับ

[pro602]

เท่าที่ลองดู Property ของ Control WebBrowser ไม่มี Property ใดให้ Set Background ได้ครับ

สำหรับ img tag ตรง <img style=...ซึ่งเป็น HTML สามารถใส่ Background Color เพิ่มได้ แต่ลองใส่แล้วไม่เกิดผลใด ๆ เช่นกันครับ

ขอบคุณสำหรับคำแนะนำครับอาจารย์