ปุ่มบันทึก Complete

[yut]

อาจารย์ครับ ช่วยด้วยครับ
ผมคลิ๊กที่ปุ่มบันทึก Complete แล้วปุ่มบันทึกหายไปทุกที
จริงๆแล้วอยากให้รูปที่โชว์มาหายไปครับ ช่วยเด็กมือใหม่ด้วยครับ
ขอบคุณครับ....

[snasui]

ลองใช้ If เข้าไปดักตอนลบ Shapes ตามตัวอย่างด้านล่างครับ

Code: Select all

Sub ShowPicture()
Dim r As String
Dim imgIcon As Image

On Error Resume Next
If Left(ActiveSheet.Shapes(1).Name, 3) = "Pic" Then
    ActiveSheet.Shapes(1).Delete
End If
r = Range("e3").Value

With Range("l3")
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="C:\DL\" & r & ".jpg", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
   Width:=120, Height:=150)
End With
Set imgIcon = Nothing

End Sub

[yut]

อาจารย์ครับ command หายแล้วครับ ขอบคุณมากครับ
แต่ขอรบกวนช่วยอีกครั้งครับ อยากให้รูปที่โชว์มาให้หายไป
ตอนคลิ๊ก Complete ครับ ขอบคุณครับ

[snasui]

ปุ่ม Complete อยู่ชีทไหน บริเวณเซลล์ไหน ใช้ Code ใดครับ

[yut]

Complte เป็น msgbox ในปุ่มบันทึกครับ

[snasui]

ได้ลองแทรก Code If เช่นตัวอย่างด้านบนเข้าไปแล้วยังครับ

ลองปรับเองดูก่อน หากยังไม่ได้ช่วยส่ง Code ที่ปรับเองแล้วมาดูกันครับ

[yut]

ผมได้ลองปรับดูแล้วครับ แต่ก็ยังไม่ได้ ขออาจารย์ช่วยหน่อยนะครับ

[snasui]

ช่วยส่งไฟล์พร้อม Code ล่าสุดที่ลองปรับมาแล้วครับ ระบุด้วยว่าอยู่ Module ไหน ชื่อ Procedure ใด

[yut]

ไฟล์ครับอาจารย์.....

[snasui]

ตอบที่ผมถามไปยังไม่ครบครับ