Excel Forum

พอดีว่าผมบันทึกแมโคร เกี่ยวกับการ Save As ขึ้น
แต่ว่ามันติดอยู่ตรง ถ้ากดยกเลิก มัน ก็ยัง Save อยู่ อาจารย์ช่วยแนะนำด้วยครับ
ส่วนกด Save มัน บันทึกปกติครับ
โค้ดครับ พร้อมไฟล์แนบครับ

Sub SaveAs()
FileSaveName = Application.GetSaveAsFilename( _
fileFilter:="WorkbookMacro (*.xlsm),*.xlsm")
If FileSaveName <> "" Then
ActiveWorkbook.SaveAs Filename:=FileSaveName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
MsgBox "สร้างต้นแบบใหม่ไปที่ " & FileSaveName & " แล้วครับ"
End If
Application.DisplayAlerts = False
Application.DisplayAlerts = True
End Sub

ลองตามนี้ครับ

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

แต่มันติดเหมือนเดิมอีกแล้วครับ แต่คราวนี้เป็นการแทรกรูปครับ
ติดตรงยกเลิกเหมือนเดิมครับ

Sub Insert_Pict()
Dim Pict
Dim ImgFileFormat As String
ImgFileFormat = "Image Files (*.bmp),others, tif (*.tif),*.tif, jpg (*.jpg),*.jpg"
GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict <> "" Then
ActiveSheet.Pictures.Insert(Pict).Name = "pic1"
End If
End Sub

ถ้าได้กำหนดขนาดและตำแหน่งด้วยก็ดีครับ

ติดเหมือนเดิมก็ลองแก้ตรง If เหมือนเดิมดูก่อนครับ