ถามเรื่อง Save As

[thanawat]

พอดีว่าผมบันทึกแมโคร เกี่ยวกับการ 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

[snasui]

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

Code: Select all

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

[thanawat]

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

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

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

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

[snasui]

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