ต้องการให้ภาพแก้วน้ำเปลี่ยนสีตาม % ที่จุ

[kobchoal]

อยากให้รูปภาพนั้นเปลี่ยนสีตามต้องการไม่ทราบว่า Excel สามารถทำได้หรือเปล่า
ตาม file แนบรูปภาพแทนแก้วน้ำที่มีน้ำอยู่ เป็น % โดยที่หากปริมาณน้ำ( %) เปลี่ยนไป ก็ให้
สีของรูปภาพนั้นเปลี่ยนไปด้วย

[อรวีร์]

คำถามของคุณที่มีผู้ตอบแล้ว กรุณาแจ้งผลด้วยค่ะ
http://www.excelexperttraining.com/f...ead.php?t=8260
http://www.excelexperttraining.com/f...ead.php?t=8265

[kobchoal]

สามารถทำได้แล้วครับ/ และขอถามเพิ่มเติม
โดยกำหนดให้ Object ชื่อ Pic1 และ ให้ Macro ตามนี้้
โดยเมื่อค่า ใน Cell "A1" น้อยกว่า 20 ก็ให้เป็นสีเหลือง ถ้าไม่ก็ให้เป็นสีแดง

Sub Macro1()


If Range("A1") < 20 Then
ActiveSheet.Shapes("Pic1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Else
ActiveSheet.Shapes("Pic1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
End If

End Sub

*** แต่ขอถามเพิ่มเติมครับ ว่าถ้าให้สีของ Pic1 เปลี่ยนเมื่อค่าของ A1 เปลี่ยนเลย โดยไม่ต้อง ทำ ปุ่ม Button เพื่อกดเปลี่ยนสี ต้องทำอย่างไรครับ

[jnopakan]

แบบไม่ต้องทำปุ่มครับ

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") < 20 Then
ActiveSheet.Shapes("Pic1").Select

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13


Else
ActiveSheet.Shapes("Pic1").Select

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
End If
End Sub