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

[snasui]

กรณีกำหนดด้วยมือให้คลิกขวาที่รูป > Format Picture > เลือก Properties > ตรง Object positioning เลือก Move and size with cells หากจะเขียนด้วย Code สามารถบันทึก Macro การกำหนดค่าตามข้างต้นแล้วนำ Code มาปรับใช้ดู ติดตรงไหนค่อยถามกันต่อครับ

[diamondbom]

ขอบคุณครับอาจารย์

[diamondbom]

สวัสดีครับอาจารย์ จากโปรแกรมที่ผมทำได้แล้วนั้น
ผมจึงได้ทำการเขียนเพิ่มเพื่อใช้สำหรับการ Copy รูปไปใช้ใน sheet ถัดไป (ปุ่ม Copy Picture )
แต่จากโค้ดที่ผมเขียนนั้นสามารถ copy ได้เพียงแต่รูปอื่นๆ ส่วนรูปที่ผมกำหนดไว้ใน Range ("A1")ตั้งแต่ต้อนแรกนั้น
ไม่สามารถ copy ได้ รบกวนขอคำแนะนำด้วยครับอาจารย์

ขอบคุณครับ

[snasui]

มีเงื่อนไขใดในการ Copy บ้างครับ

หากไม่มีสามารถ Copy ไปทั้งหมดได้เลยด้วย Code ด้านล่างครับ

Code: Select all

Sheets("Sheet1").Cells.Copy Sheets("Sheet2").Cells

[diamondbom]

ขอบคุณครับอาจารย์
แต่ผมมีเงื่อนไขคือเนื้อหาในแต่ละ sheet จะแตกต่างกันครับ ต้องการ copy แค่เพียงรูปภาพที่จะทำให้เป็น Header ที่เหมือนกันครับ

[snasui]

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

Code: Select all

Dim pic As Shape, rng As Range
Dim x As Double, y As Double
Range("A1").MergeArea.Select

For Each pic In ActiveSheet.Shapes
'        If pic.Type = msoPicture Then
    If InStr(pic.Name, "Pic") Then
        x = pic.Height
        y = pic.Left
        pic.Copy
        With Sheets("Sheet2")
            .Select
            .Range(pic.TopLeftCell.Address).Select
            .Paste
            With Selection
                .Height = x
                .Left = y
                .Placement = xlMoveAndSize
            End With
        End With
    End If
Next pic

[diamondbom]

ขอบคุณครับอาจารย์