如何在 Excel 中點擊圖片時將其放大？

作者Siluvia修改日期2024-10-28

假設您已將一組圖片插入至某一欄，並如以下截圖所示，將圖片尺寸調整為與儲存格大小一致。由於插入的圖片看起來較小，您可能需要將其放大以滿足特定需求。本文將介紹一種方法，讓您在 Excel 中點擊圖片時自動放大，再次點擊即可恢復為原始尺寸。

顯示 Excel 儲存格中一連串小圖片的螢幕截圖

使用 VBA 程式碼在點擊時放大圖片

使用 VBA 程式碼在點擊時放大圖片

下列 VBA 程式碼可讓您在 Excel 中點擊圖片時立即放大，操作步驟如下：

1. 右鍵點擊您希望透過單次點擊即可放大的圖片，於快捷選單中點擊指派巨集。請參閱截圖：

Excel 中圖片右鍵選單內「指定巨集」選項的螢幕截圖

2. 在指派巨集對話方塊中，請點擊新增按鈕。

Excel 中用於為圖片新增巨集的「指定巨集」對話框螢幕截圖

3. 在彈出的 Microsoft Visual Basic for Applications 視窗中，請將下方的 VBA 程式碼複製並貼上至 Sub 與 End Sub 之間。請參閱截圖：

VBA 程式碼：在 Excel 中透過點擊放大圖片

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3   
    small = 1 
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
    
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

注意：在程式碼中，您可透過設定 big = 3 來指定圖片放大後的尺寸。

顯示 Excel 中用於放大與還原圖片尺寸之 VBA 程式碼的螢幕截圖

4. 接著同時按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

從現在起，當您點擊圖片時，它會放大至您指定的尺寸；再次點擊即可恢復為原始大小，如下方截圖所示。

顯示在 Excel 中點擊圖片後放大，再次點擊則還原為原始尺寸的螢幕截圖

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多