กำหนดภาพพื้นหลังตามขนาดพื้นที่ที่กำหนด

[nurak]

เราสามารถกำหนดภาพพื้นหลังตามขนาดพื้นที่ที่กำหนดได้หรือไม่อย่างไรครับ

[snasui]

ไม่สามารถทำได้ครับ การใส่ Background จะใส่ทั้งชีทครับ

[nurak]

ขอถามเพิ่มเติมอีกครั้งครับ ถ้าเรานำรูปจาก .jpg มาไว้ใน Sheet เราจะทำอย่างไรให้เวลาเราพิมพ์ตัวเลขและอักษรอยู่หน้ารูปภาพ(คือเอารูป.jpg เป็นพื้น)ครับ

[snasui]

ไม่สามารถทำได้ครับ

Object ทุกชนิดจะไม่สามารถอยู่เบื้องหลังเซลล์ได้เลย ยกเว้นจะทำ Background หากต้องการประยุกต์ใช้ก็ต้องนำรูปภาพนั้นไปวางทับบนเซลล์ที่คีย์ข้อมูลหรือเขียนข้อมูลลงใน Object นั้น ๆ แล้วกำหนด Object นั้น ๆ ให้มีภาพด้านหลังแทนครับ

[nurak]

ขอถามครับ VBA สามารถกำหนดสีต่างๆ ตามที่เราต้องการได้หรือไม่ครับ

[snasui]

ลองตามไฟล์แนบครับ

1. ที่ Module ปกติใช้ Code ตามด้านล่าง

Code: Select all

Sub PasteFormatOnly()
Dim r0 As Range, r1 As Range
Dim r2 As Range, rt As Range
Set r0 = Range("C4:H15"): Set r1 = Range("C17:H27")
Set r2 = Range("C29:H39"): Set rt = Range("N4")
Range("N4:S15").ClearFormats
Select Case Range("K6")
    Case 1
        r0.Copy
    Case 2
        r1.Copy
    Case 3
        r2.Copy
End Select
rt.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub

2. ที่ชีท 1 ใช้ Code ด้านล่าง

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$6" Then
        PasteFormatOnly
    End If
End Sub

[nurak]

ขอบคุณมากๆครับ