學而所用

開啟VBA ，插入模組，貼上下面程式碼，修改檔案路徑及舊的檔案名稱及新的檔案名稱 Sub RenameTheFile() '修改指定的檔案名稱     Dim FilePath As String     Dim OldFileName As String     Dim OldFilePath As String     Dim NewFileName As String          ' 設置檔案路徑     FilePath = "C:\YourFilePath\"     ' 設置舊的檔案名稱     OldFileName = "OldFileName.txt"     '設置舊的檔案路徑+名稱     OldFilePath = FilePath & OldFileName     ' 設置新的檔案名稱     NewFileName = "NewFileName.txt"          ' 檢查檔案是否存在     If Dir(FilePath) <> "" Then         ' 修改檔案名稱         Name OldFilePath As Replace(OldFilePath, OldFileName, NewFileName)         MsgBox "檔案名稱修改完成。"     Else         MsgBox "檔案不存在。"     End If End Sub

  有時可以找到隱形、透明色、無邊的Autoshape 如何有效地快速刪除 如何確定是Autoshape？！ 可以在 常用 -> 尋找與選取 -> 選取窗格 選取窗格 ->選取物件，看選取物件名稱是否是 Autoshape 如何刪除所有Autoshape 可以在 常用 -> 尋找與選取 -> 選取物件及Ctrl+A 可以選取所有物件，但 這方法也會選取圖片 如果要 刪除需要注意 另一方法使用VBA 可以只刪除Autoshapes Sub Delete_All_Shapes() '刪除所有Autoshapes     Dim GetShape As Shape     For Each GetShape In ActiveSheet.Shapes             GetShape.Delete         Next End Sub