เปลี่ยนพื้นหลังของ Image ด้วยคำสั้งจาก Command button

[diamondbom]

รบกวนสอบถามหน่อยครับ คือว่าผมต้องการที่จะเปลี่ยนพื้นหลังของ Image ด้วยคำสั้งจาก Command button (Select Picture)
โดยให้ปรากฏ และเลือรูปภาพจากหน้าต่าง Insert Picture (คล้ายๆกันกับ Insert Picture ของ Excel ) แต่ผมยังไม่รู้ว่าจะเริ่มยังไง
หนังสือที่มีก็ไม่มีตัวอย่าง รบกวนขอคำแนะนำในการเขียน Code ด้วยครับ
ขอบคุณครับ

[logic]

ลองบันทึกมาโครดูน่าจะได้โค้ดมาปรับใช้ได้ครับ

[diamondbom]

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveSheet.Shapes.Range(Array("Image1")).Select
End Sub

มาโครมีโค้ดเท่านี้ผมไปต่อไม่ถูกรบกวนแนะนำด้วยครับ อยากได้โปรแกรมประมาณว่าเราสามารถเลือกรูปต่าง Insert Picture (คล้ายๆกันกับ Insert Picture ของ Excel )

ขอบคุณครับ

[logic]

อ่านแล้วงงครับ

ปกติกำหนดพื้นหลังให้กับภาพอย่างไรก็บันทึกมาโครแบบนั้น

ผมลองทำดูได้ตามนี้ครับ

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .PresetTextured msoTexturePapyrus
        .TextureTile = msoTrue
        .TextureOffsetX = 0
        .TextureOffsetY = 0
        .TextureHorizontalScale = 1
        .TextureVerticalScale = 1
        .TextureAlignment = msoTextureTopLeft
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg"
        .TextureTile = msoFalse
    End With
End Sub

[diamondbom]

สวัสดีครับ ตอนนี้ผมแก้ไขโค้ดได้แล้วครับแต่ติดปัญหานิดหน่อยอยากจะรบกวนสอบถามครับ

-กรณีใช้ Commandbutton เปิด UserForm เพื่อเลือกและเปลี่ยนภาพพื้นหลังของ Image กดบันทึกแล้วถาพสามารถเปลียนได้ทันที

-กรณีใช้ Image เปิด UserForm เพื่อเลือกและเปลี่ยนภาพพื้นหลังของ Imageของตัวมันเองกดบันทึกแล้วถาพไม่สามารถเปลียนได้ทันที
ต้องกดออกจาก UserForm ก่อนภาพจึงจะเปลี่ยนให้ พอจะมีวิธีทำให้ภาพเปลี่ยนทันทีใหมครับ

[diamondbom]

โปรแกรมครับ

[diamondbom]

รบกวนสอบถามเพิ่มเติมครับ การใช้งาน Image กินพื้นที่หน่วยความจำเยอะมาก นี่คือเรื่อปรกติใช่ป่าวครับ

[snasui]

โปรแกรมครับ

ปรับ Code เป็นด้านล่างครับ

Code: Select all

Private Sub Image1_Click()
    UserForm1.Show vbModeless
End Sub

รบกวนสอบถามเพิ่มเติมครับ การใช้งาน Image กินพื้นที่หน่วยความจำเยอะมาก นี่คือเรื่อปรกติใช่ป่าวครับ

เป็นเรื่องปกติครับ

[diamondbom]

ขอบคุณครับ

[diamondbom]

รบกวนสอบถามเพิ่อมเติมหน่อครับ เนื่องจาก Image มีการใช้พื้นที่เยอะมึงเปลี่ยนมาใช้รูปภาพแทน
อยากสอบถามเกี่ยวกับการใช้โค้ดใช้ภาพอยู่กึ่งกลางเซลที่เรา Merge ไว้น่ะครับ
(กึ่งกลางเหมือนกับกรณีที่เราใช้ Image ใน Mode Zoom)
ขอบคุณครับ

[diamondbom]

โปรแกรมครับ

[diamondbom]

รบกวนสอบถามเพิ่อมเติมหน่อครับ เนื่องจาก Image มีการใช้พื้นที่เยอะจึงเปลี่ยนมาใช้รูปภาพแทน
อยากสอบถามเกี่ยวกับการใช้โค้ดใช้ภาพอยู่กึ่งกลางเซลที่เรา Merge ไว้น่ะครับ
(กึ่งกลางเหมือนกับกรณีที่เราใช้ Image ใน Mode Zoom)
ขอบคุณครับ

[snasui]

เนื่องจาก Image มีการใช้พื้นที่เยอะมึงเปลี่ยนมาใช้รูปภาพแทน

Image กับรูปภาพคือ Object ชนิดเดียวกันครับ แต่หากเป็น ActiveX Control หรือ Form Control กับ Image จึงจะเป็นคนละ Object ในการเขียน Code ให้เป็นมาตรฐานเราควรใช้ Control แบบใดแบบหนึ่งแทน Image เนื่องจากสร้างมาเพื่อการนี้โดยเฉพาะ ยกเว้นจะเขียนแบบต้องการให้สวยงามเป็นหลักครับ

[diamondbom]

ขอบคุณครับอาจารย์ ในที่นี้ผมต้องการให้ commandbutton เป็นตัว control และออกแบบให้รูปภาพเป็น object แสดงผลบนเซลในรูปแบบกึ่งกลางเซล(เซลที่ Merge เอาไว้เป็นแนวยาว)ประมาณแสดงรูปเป็น header ของ Report รบกวนอาจารยญ์ช่วยชี้แนะด้วยครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Dim r As Range, imgIcon As Object
Set r = Range("a5")
'Other code...    
Set imgIcon = ActiveSheet.Pictures.Insert(UserForm1.AddPic.Caption)
With imgIcon
    .Left = (r.Left + (r.MergeArea.Width - .Width)) / 2
    .Height = r.MergeArea.Height
End With

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

[diamondbom]

สวัสดีครับอาจารย์ จากโปรแกรมในไฟล์แนบผมรบกวนขอสอบถามเพิ่มเติมครับ
1.เมื่อมีการเปลี่ยนรูปตำแหน่งก็จะเปลี่ยนไปไม่อยู่กึ่งกลางเซลล์ที่ Merge ไว้เหมือนเคย ผมควรแก้ไขอย่างไรครับ
2.เมื่อมีการปรับ column width และ row height รูปภาพไม่ปรับขนาดตาม รบกวนขอคำแนะนำด้วยครับอาจารย์

ขอบคุณครับ

[snasui]

Code ทีแนบมาไม่ตรงกับที่ผมแจ้งไปครับ

[diamondbom]

ตรง /2 ใช่ป่าวครับอาจารย์ ผมใช้แล้วภาพไม่อยู่กึ่งกลางน่ะครับผมเลยลองปรับโค้ดดู
ในไฟล์แนปโค้ดตรงครับอาจารย์แต่ภาพจะอยู่ชิดซ้ายนิดหน่อยครับ

[snasui]

ตรง /2 ใช่ป่าวครับอาจารย์ ผมใช้แล้วภาพไม่อยู่กึ่งกลางน่ะครับผมเลยลองปรับโค้ดดู

ปรับให้สลับบรรทัดกันใหม่ตามด้านล่างครับ

Code: Select all

Set imgIcon = ActiveSheet.Pictures.Insert(UserForm1.AddPic.Caption)
With imgIcon
    .Height = r.MergeArea.Height
    .Left = (r.Left + (r.MergeArea.Width - .Width)) / 2
End With

[diamondbom]

ได้แล้วครับอาจารย์ เมื่อมีการเพิ่มภาพจะอยู่ตรงกลางพอดีแล้วครับ
รบกวนขอสอบถามอาจารย์เพิ่มเติมครับกรณีมีการปรับ column width และ row height รูปภาพไม่ปรับขนาดตาม
เราสามารถตั้งค่าให้รูปภาพปรับขนาดตามเซลล์ไดใหมครับ รบกวนขอคำแนะนำด้วยครับอาจารย์
ขอบคุณครับ