Excel Forum

Posted: **Fri Jan 05, 2018 12:58 pm**

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

Posted: **Fri Jan 05, 2018 1:33 pm**

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

Posted: **Fri Jan 05, 2018 3:52 pm**

Sub Macro1()
'
' Macro1 Macro
'

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

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

ขอบคุณครับ

Posted: **Fri Jan 05, 2018 4:38 pm**

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

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

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

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

Posted: **Thu Jan 11, 2018 8:10 am**

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

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

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

Posted: **Thu Jan 11, 2018 8:23 am**

โปรแกรมครับ

Posted: **Thu Jan 11, 2018 5:06 pm**

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

Posted: **Thu Jan 11, 2018 9:09 pm**

diamondbom wrote:โปรแกรมครับ

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

Code: Select all

Private Sub Image1_Click()
    UserForm1.Show vbModeless
End Sub

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

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

Posted: **Thu Jan 11, 2018 9:53 pm**

ขอบคุณครับ

Posted: **Fri Jan 12, 2018 5:42 pm**

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

Posted: **Fri Jan 12, 2018 5:43 pm**

โปรแกรมครับ

Posted: **Sat Jan 13, 2018 12:50 pm**

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

Posted: **Sat Jan 13, 2018 1:12 pm**

diamondbom wrote: Fri Jan 12, 2018 5:42 pm เนื่องจาก Image มีการใช้พื้นที่เยอะมึงเปลี่ยนมาใช้รูปภาพแทน

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

Posted: **Mon Jan 15, 2018 7:19 am**

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

Posted: **Mon Jan 15, 2018 3:05 pm**

ตัวอย่างการปรับ 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

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

Posted: **Thu Jan 25, 2018 8:24 am**

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

ขอบคุณครับ

Posted: **Thu Jan 25, 2018 5:58 pm**

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

Posted: **Thu Jan 25, 2018 6:31 pm**

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

Posted: **Thu Jan 25, 2018 10:46 pm**

diamondbom wrote: Thu Jan 25, 2018 6:31 pm ตรง /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

Posted: **Fri Jan 26, 2018 7:59 am**

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

Excel Forum

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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