Office-使用巨集刪除PPT投影片內所有圖片

 想將投影片裡所有的圖片刪除，但不想影響到現有的格式，也考慮到第一頁的主題圖片不要刪到，故從倒數刪到投影片第二頁。

with用法參考：

https://docs.microsoft.com/zh-tw/dotnet/visual-basic/language-reference/statements/with-end-with-statement

1 2 3 4 5 6 7 8 9 10 11 12 13

'從最後一頁開始到第2頁。 For Page = ActivePresentation.Slides.Count To 2 Step -1 '設定目前Pid為目前的投影片的頁。 Set Pid = ActivePresentation.Slides(Page) '檢查該頁的所有物件。 For shapenumber = Pid.Shapes.Count To 1 Step -1 '指定結構成員。 With Pid.Shapes.Item(shapenumber) '刪除連結的圖片及載入的圖片。 If .Type = msoLinkedPicture Or .Type = msoPicture Then .Delete End With Next Next

Office-使用PPT,巨集加入今天日期及名字

常做報告時，PPT第一頁需加入報告人及日期，使用巨集進行加入，減少忘了輸到日期或輸錯問題，有了PPT巨集功能方便，在做PPT重覆性工作時，增加不少效率。 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Initial() '指定投影片第一頁。 Set P1 = ActivePresentation.Slides(1) Dim GetID ' 請取Windows 帳號。 GetID = Environ$("username") '寫入帳號及日期。 Pl.Shapes(2).TextFrame.TextRange.Text = GetID & _ Chr(13) & Format(Date, "mm") & " " & Format(Date, "dd") & " ," & Format(Date, "yyyy") End Sub

結果：

Excel 轉 PDF 保留超連結

平常都使用Excel 列印方式轉成PDF檔案，以為沒有保留超連結方式，近期需Excel轉成PDF且超連結功能需保留，才知可以用另存或發佈方式轉PDF並保留超連結。

一、Excel插入超連結。

二、另存檔案，選擇存成PDF。

三、轉成PDF後開啟。

PowerPoint VBA 刪除所有圖片

研究只刪除PPT 內所有圖片。

圖片為：msoLinkedPicture Type 值為11，
針對每頁投影片中的圖案類型做比對，
類型值為11進行刪除動作。


MsoShapeType 型別

https://docs.microsoft.com/zh-tw/office/vba/api/office.msoshapetype


程式碼：
Sub DeleteAllPictrue()

'全部投影片
For Each sld In ActivePresentation.Slides

    For intshape = sld.Shapes.Count To 1 Step -1

       
    With sld.Shapes.Item(intshape)
'刪除圖片
      If .Type = msoLinkedPicture Then .Delete
   
    End With
 
  Next

Next

End Sub

Excel 右鍵無法使用

問題：Excel 工作表中按右鍵無任何反應。


解決方式：

第一種方式、C:\Users\“使用者”\AppData\Roaming\Microsoft\Excel，更改Excel目錄名稱為Excel_Backup。
PS.AppData（此目錄需開啟隱藏檔及關閉隱藏系統檔案才看的到。）


第二種方式：匯出機碼內容HKEY_CURRENT_USER\Software\Microsoft\Office
，然後將此機碼刪除。

Excel 打日期變數字

問題：儲存格格式設定時間，但欄位顯示小數點的數子。

一、儲存格格式正常畫面，設定自訂時間。

二、點選到顯示公式，㯗位顯示不是顯示時間，取消顯示公式即恢復成時間格式。

Word 空白都變成一點

在編輯Word 文件時，怎麼覺的每個單子或字母前都多個了點，以為是格式或排版的設定，

找了一回都無法解決，經上網查詢後原來是顯示/隱藏編輯標記功能被打開了，關閉就正常。

Excel VBA 排序分類

需求：將相同類型的值和金額做加總，做成特定的表格。

對Excel VBA，熟練度還處在剛起步階段，想到利用排序加上迴園和判斷式來達成目地。

Sub Test()

'排序範圍(A2:C7)欄 xlAscending(遞減) xlDescending(遞增)。

   Range("A2:C7").Sort Key1:=Range("B2"), Order1:=xlAscending

'Text1 比對文字使用。

Dim Text1 As String

'設定複製及貼上的範圍值。

Dim CopyStart, CopyEnd, PastStart, PastEnd As Integer

'判斷最後一列。

 EndText = ActiveSheet.UsedRange.Rows.Count

'初始複製及貼上的範圍值。

 CopyStart = 2
 CopyEnd = 2
 PastStart = 0
 PastEnd = 0

 '抓取需判斷的初始文字。

 Text1 = Range("B" & CopyEnd)

'逐步判斷分類範圍。

For X = 0 To EndText
 
'判斷分類範圍，若比對值不同，將進行同類的值Copy至另一欄。

  If Text1 <> Range("B" & CopyEnd + 1) Then
 
'複製來源的開始位置及結尾位置。

  Range("A" & CopyStart & ":C" & CopyEnd).Copy
 
'設定要貼上的位置範圍。

  PastStart = PastStart + CopyStart

  PastEnd = PastEnd + CopyEnd

 '貼上來源分類資料。

  Range("G" & PastStart & ":I" & PastEnd).PasteSpecial

  Range("H" & PastEnd + 1).Value = "小計 :"

'計算加總值。

Range("I" & PastEnd + 1) = Application.Sum(Range("I" & PastStart & ":I" & PastEnd))

PastStart = PastStart - CopyStart + 1

PastEnd = PastEnd - CopyEnd + 1
 
'設定下個分類的開始位置。

 CopyStart = CopyEnd + 1

     
  End If
 
 '設定分類的結束位置。

  CopyEnd = CopyEnd + 1

Text1 = Range("B" & CopyEnd)

Next X

End Sub

Office Powerpoint 2007 失敗的模組名稱：KERNELBASE.dll

問題：Powerpoint 文件開啟後，Powerpoint程式立刻發生錯誤關閉，查看事件檢視器，看到圖              片中錯誤訊息，失敗的模組名稱：KERNELBASE.dll。

處理過程：
1.刪除個人Profile下，Office相關登錄檔及檔案，重開後情況無改善。
2.重新安裝Office 2007 情況無改善。
3.重安裝個人Profile，問題解決。
4.再度發生，其他電腦有同樣情況，最後檢查為印表機問題，因印表機安裝至有異常的驅動程式，在PowerPoint程式開啟時，載入了有異常的印表機而發生，開啟錯誤，將印表機驅動安裝正常後解決。

為了避免可能的資料遺失，Excel無法將非空白儲存格移工作表

問題：Excel 插入新的列時出現，為了避免可能的資料遺失，Excel無法將非空白儲存格移工作表，警告訊息，無法正常插入新的列。

解決方式：按CTRL+END，移到最後一列，查看最後一列是否有資料，若無將此列刪除後，即可插入新列。


原因：因Excel有限制列和欄的數量，當列到最大數量，再插入一列時，就會出現此警告。

微軟關於Excel規格和限制可至官網查詢：Excel規格和限制

Office Access 從外部資料庫驅動程式產生的非預期的錯誤 (1)

問題：開啟Office Access 出現錯誤，從外部資料庫驅動程式產生的非預期的錯誤 (1)。

解決：移除更新K84041681、K84041678 二個，經測試移除後可正常開啟。

參考來源：https://rainmakerho.github.io/2017/10/13/20171013/

移除更新K84041681、K84041678 二個。

Office 2007 Excel 加密文件密碼無法輸入

問題：Excel 2007  加密文件，輸入密碼處無法輸入。

解決：將新注音切換成英數。

Office VBA 找出最後列

找出目前工作表中，最後一列。

Sub EndRow()


'找出最後列。

e = ActiveSheet.[A65536].End(xlUp).Row

MsgBox e, 1, "最後一列"


End Sub

 

Excel Sunif 有條件的總合

計算相同類別的總合，使用Sumif函數完成。

範列：已有1月1日至1月4日記錄，計算這4天早餐的費用。

EXCEL PHONETIC 文字串接

近期需用到文字串接功能，上網詢找一下，Excel "Phonetic"這函數不錯用。


用法：PHONETIC(串接文字的範圍)

Excel 2007 備份 自訂快速存取工具列

 

因重灌整台電腦，需要將Excel的自訂快速存取工具列做備份。

 

 

解決方法：將C:\Users\"個人Profile"\AppData\Local\Microsoft\Office，下的Excel.qat備份即可。
Windows XP 的位置：C:\Documents and Settings\"個人Profile"\Local Settings\Application Data\Microsoft\Office

 

Excel 顯示潛在安全性顧慮(無法開啟Excel檔案)

問題：Excel檔案開啟時，出現安全性警告視窗，但不管點選啟用或停用，都無法正常開啟。

 

 

 

 

解決方式：

                    一、使用IE開啟有問題的Excel檔案。

 

 





                 二、中斷外部連結。
                          1.選擇資料。2.點選編輯連結。3.檢查連結狀態，如果找不到，建議將連結中斷。決定連結資料不需要也建議中斷，中斷後存檔即可。

Excel 日期與時間基本涵數

Excel 2007 複製貼上慢 (隱形方框)

狀況：

Excel 2007複製內容在貼上時，很慢接近當機的情況。

原因：有上萬個文字方框，但無背景無邊框，完全查覺不出來。

隱形方框產生方法：

1.拉取一個文字方塊。

2.在文字方框點選右鍵，選擇"格式化圖案"。

3.將填滿及線條色彩，都選擇"無填滿"。

4.這樣就產生出隱形的文字方塊。

5.在有文字方塊的區塊，多次複製貼上，文字方塊會倍數成長。

解決方法：

1.按F5，跳出"到"視窗，選擇特殊。

2.選擇"物件"，按確定，會選擇所以有物件(文字方塊)，在按Del即可。

Office 2003升級Office 2007 無法安裝，路徑錯誤。

安裝Office 2007，出現路徑錯誤。

為了預防其他問題，直接把之前的Office 2003下相關機碼全部移除。
移除[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office]機碼即可。


補充：
Office 安裝位址的機碼。
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Common\InstallRoot]