Excel Forum

Posted: **Thu May 06, 2021 9:17 am**

สวัสดีครับอาจารย์และพี่ๆสมาชิก
ช่วยแนะนำการนำภาพ 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

Posted: **Thu May 06, 2021 3:20 pm**

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

Posted: **Sat May 08, 2021 11:30 pm**

logic wrote: Thu May 06, 2021 3:20 pm ทำตัวอย่างเลียนแบบไฟล์จริง ใสโค้ดแล้วแนบมาด้วย จะได้ช่วยกันดูได้ครับ

ผมได้ลองนำ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)

Posted: **Sun May 09, 2021 7:32 pm**

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

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

Posted: **Mon May 10, 2021 12:40 pm**

snasui wrote: Sun May 09, 2021 7:32 pm เท่าที่ลองดู Property ของ Control WebBrowser ไม่มี Property ใดให้ Set Background ได้ครับ

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

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

Excel Forum

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

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

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

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

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

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