ไม่ให้ Code ลบปุ่มใช้คลิก
Posted: Fri Nov 20, 2015 11:40 am
เรียน อาจารย์ ทุกท่าน
ผมต้องการให้ พิมพ์ชื่อในเซลที่กำหนด แล้ว ภาพตามชื่อที่พิมพ์ปรากฏ ในเซลที่ต้องการ เช่น พิมพ์ชื่อภาพที่ F4 ภาพปรากฎที่ F5 แล้วคลิกที่ปุ่มเพื่อหาข้อมูลอื่นที่เกี่ยวข้อง แต่ Code มีผลทำให้ปุ่มต่าง ๆ ลบหมด สำหรับ ภาพประกอบแสดงที่ถูกลบ ดังนี้ ครับ
สำหรับ Code ดังนี้ ครับ
และแนบไฟล์มาด้วยแล้ว ครับ
ขอความกรุณา แนะนำ Code ด้วยครับ
ผมต้องการให้ พิมพ์ชื่อในเซลที่กำหนด แล้ว ภาพตามชื่อที่พิมพ์ปรากฏ ในเซลที่ต้องการ เช่น พิมพ์ชื่อภาพที่ F4 ภาพปรากฎที่ F5 แล้วคลิกที่ปุ่มเพื่อหาข้อมูลอื่นที่เกี่ยวข้อง แต่ Code มีผลทำให้ปุ่มต่าง ๆ ลบหมด สำหรับ ภาพประกอบแสดงที่ถูกลบ ดังนี้ ครับ
- ภาพเริ่มต้นก่อนป้อนชื่อ
- ลบปุ่มใช้คลิก1.jpg (33.07 KiB) Viewed 96 times
- เมื่อป้อนชื่อไปเรื่อย ๆ ปุ่มจะถูกลบมากขึ้นจนหมด
- ลบปุ่มใช้คลิก3.jpg (26.3 KiB) Viewed 96 times
Code: Select all
Sub ShowPicture()
Dim r As String
Dim imgIcon
On Error Resume Next
ActiveSheet.Shapes(1).Delete
r = Range("F4").Value
With Range("f5")
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="C:\Users\com\Pictures\" & r & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
Width:=80, Height:=80)
End With
Set imgIcon = Nothing
Range("f4").Select
End Sub
ลบปุ่มใช้คลิก.xlsm- (32.85 KiB) Downloaded 14 times
Code ที่ใช้ลบ Object คือ