【Office】關於插入相片解析度過低

【PowerPoint】插入直式的頁面??

Office很直白地告訴你PowerPoint一個檔案只能接受一種直式or橫式的版面設定，
但是也提供一種做法可供參考：

https://support.office.com/zh-tw/article/%E5%9C%A8%E5%90%8C%E4%B8%80%E4%BB%BD%E7%B0%A1%E5%A0%B1%E4%B8%AD%E4%BD%BF%E7%94%A8%E7%9B%B4%E5%90%91%E5%92%8C%E6%A9%AB%E5%90%91%E7%9A%84%E6%8A%95%E5%BD%B1%E7%89%87%E6%96%B9%E5%90%91-d8c21781-1fb6-4406-bcd6-25cfac37b5d6

也就是用類似連結的方式去跳到另一個設定好的直式版面檔案裡。

有youtuber提供方法如下：

簡單說就是：

A檔案(橫)→插入→動作→跳到"其他PowerPoint簡報..."→點選B檔案(直)中要銜接的頁面。

當然最後記得，也要在B檔案(直)中執行上述動作，好銜接回去A檔案(橫)完結整份簡報。

【Excel】合併多個檔案

1. 多個excel檔案合併至同一分頁中
   參考網址：http://www.ckizumi.com/2013/08/excel.html
2. 同一檔案分頁合併至同一分頁中
   參考網址：http://blog.bestdaylong.com/2008/10/excel.html
3. 同or不同檔案之相同表格合併彙算至單一表格中
   參考網址：http://www.techbang.com/posts/12567-using-merge-calculation-tabular-data-into-one

說明：

1.
　a. M Riza 先生的VBA

Sub simpleXlsMerger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
 
'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("D:\change\to\excel\files\path\here")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
 
'change "A2" with cell reference of start point for every files here
'for example "B3:IV" to merge all files start from columns B and rows 3 
'If you're files using more than IV column, change it to the latest column
'Also change "A" column on "A65536" to the same column as start point
Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
 
'Do not change the following column. It's not the same column as above
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next
End Sub

b. 使用說明：

• 開啟 Excel，按下 Alt + F11 叫出巨集編輯器，貼入網站中的 Code
• 要貼在【ThisWorkbook】裡面喔~不是Sheet裡!!!
• 修改第8行的路徑，改成需要合併的 Excel 檔存放路徑
• 按下執行鍵就 OK 了

心得

• 儘管是 CSV 檔案也能正確合併。
• 這邊要注意一件事情，Code 當中的 A2 是起始的儲存格，在合併過程中會忽略掉標題列，直接從第二列開始複製；若是你想連標題列都合併起來，請改成 A1。IV 是他的複製欄寬，可以改成自己想要的欄寬。

Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy

• 值得注意的是，雖然這個方法是給 Excel 2007 使用，但 Excel 2007 開始有個重大變化，就是 Excel 最大列數從 2^16 次方改成了 2^20 次方。這代表你可以處理的資料從 Excel 2003 的 65,536 筆增加至 1,048,576 筆。

心得第二點的發現是因為我合併了所有的檔案，還很慶幸原來只有六萬多筆，最後慚愧地發現原來資料數量有三十萬筆，而 Code 當中卻只設定到 65,536 筆，只需要把 A65536 改成 A1048576 即可。