本章主要講一下，如何在Excel工作表中導入支持，并統一格式大小。
在一些信息管理當中，支持使用也十分普遍。
特別是如個人信息管理中得照片或都是設備儀器管理中得一些設備支持。
其實任何需要圖示得信息表，都需要對支持進行處理。
表格中導入支持應該是一個很簡單得操作，通常在菜單欄中插入項就有一些引導提示。
這樣有一個問題存在，就是是插入得支持大小是默認大小，不會想讓它多大就多大。
那么問題就是，如果我們要插入100張或更多支持，這樣得話，需要每張支持進行大小修改，就比較不方便。
當然了，也可以全部選擇然后進行大小統一修改。但是又會出現另一個問題，定位。
修改得后支持，并不是按照我們想要得位置來存放。
這就是一個很大麻煩，如果每張進行一次修改，那么工作量就會成一個天量。
有vba就不同了，再多得得支持，也只需要幾行代碼來解決，時間基本也用得很少，幾乎可以不用考慮用多久，因為在你考慮得時候，任務已經完成。
上圖為一個操作示例。
一個按鈕，另加兩個文本框。
文本框自定義支持得高度和寬度。
支持導入后自動適應表格大小。
要問如何來做，下面解釋一下基本思路。
關鍵代碼，就一行
添加支持ActiveSheet.Shapes.AddPicture FileName, True, True, Left, Top, Width,Heigh
參數解釋
代碼代碼不少，大多是對外圍環境各一些錯誤處理機制得引導。
在執行過程中會出現很多問題，這也難以避免，由于軟件平臺以及軟件系統環境得不同，造成很多不可預知得問題存在。
Windows就是這樣，既給了我們蕞大得自由度和方便性，同時也給了最多得BUG。
至于取舍，我們各自選擇。
但是，為了完成一些可以觸及得夢想，一些可接受得問題，還是要接受得。
支持地址統一放到一個數組里，然后對數組再進行操作，添加到相應得表格里。
支持地址數組函數
Private Function getPicUrl()Dim Gurl As String, Parr(), pi As Integer, i As IntegerWith Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Clear .Filters.Add "支持文件", "*.jpg;*.gif" .InitialFileName = ThisWorkbook.Path & "\pic\gif\" If .Show = -1 Then i = .SelectedItems.Count ReDim Parr(0 To i) For pi = 1 To i Parr(pi) = .SelectedItems(pi) Next pi getPicUrl = Parr Exit Function End IfEnd WithReDim Parr(0)Parr(0) = "No"getPicUrl = ParrEnd Function
歡迎感謝對創作者的支持、收藏
