Excel表格中圖片怎麼固定在單元格里（VBA方法）

0. 簡短不看版

原理是將圖片的屬性設定為第一種

程式碼如下：

'作者：小趙

Sub SelectAllSheets()
    Dim ws As Worksheet
    For Each ws In Worksheets'選擇每一張工作表
        ws.Select 
        Dim pic As Shape 
        For Each pic In ActiveSheet.Shapes'在當前表，選擇所有圖片
            If pic.Type = msoPicture Then
            pic.Placement = xlMoveAndSize '設定當前圖片屬性為大小和位置隨單元格改變
            End If
        Next pic
    Next ws
End Sub

1. 引言

在處理Excel表格時，我們常常需要在其中插入圖片來豐富內容或者進行資料展示。然而，預設情況下Excel中插入的圖片是會自由浮動的，當我們滾動或列印表格時，圖片可能會覆蓋到其他單元格，給閱讀和分析帶來不便。本篇文章將介紹如何固定圖片在Excel表格的單元格里，確保圖片與資料保持對應關係，提高資料的可讀性和整體的美觀性。

2. Excel中插入圖片

在Excel中插入圖片有多種方法，可以使用快捷鍵、選單選項或者VBA宏程式設計來完成。我們這裡以最常用的方法示例，步驟如下：

1. 開啟Excel，並選中要插入圖片的單元格。
2. 在Excel的選單欄中點選“插入（Insert）”選項卡。
3. 找到“圖片（Pictures）”按鈕，點選它。
4. 在彈出的對話方塊中選擇要插入的圖片檔案，並點選“插入（Insert）”按鈕。

3. 圖片浮動與固定

3.1. 設定圖片屬性

我們可以透過設定圖片的屬性來實現固定圖片在單元格內部的效果。步驟如下：

1. 選中已插入的圖片。
2. 右鍵點選圖片，選擇“大小與屬性”（或類似選項）。
3. 在彈出的對話方塊中選擇“屬性（Properties）”選項卡。
4. 勾選“固定在單元格（Move and size with cells）”選項。

這樣設定後，無論是移動表格還是改變單元格的大小，圖片都會隨著單元格的變化而調整位置，保持固定在單元格內。

3.2. 使用VBA宏

另一種常用的方式是使用VBA宏程式設計來插入圖片並固定位置。程式碼示例如下：

Sub InsertAndFixImage()
    Dim rng As Range
    Dim pic As Picture

    ' 選中要插入圖片的單元格
    Set rng = Selection

    ' 插入圖片
    Set pic = ActiveSheet.Pictures.Insert("C:\path\to\image.jpg")

    ' 調整圖片大小與位置
    pic.Top = rng.Top
    pic.Left = rng.Left
    pic.Height = rng.Height
    pic.Width = rng.Width

    ' 設定圖片屬性
    pic.Placement = xlMoveAndSize
End Sub

將以上程式碼複製到Excel的VBA編輯器中（快捷鍵Alt+F11），然後執行宏即可在選中的單元格中插入圖片並固定位置。

4. 注意事項與擴充套件

在使用以上方法固定圖片位置時，我們需要注意以下幾點：

• 圖片的大小和位置是相對於單元格而言的，當調整單元格大小或改變列寬行高時，圖片也會相應調整。
• 在複製或移動單元格時，固定的圖片會隨之複製或移動，並保持在對應的單元格內。
• 如果不希望圖片隨著單元格複製或移動而改變位置，可以使用絕對引用（$符號）來指定圖片位置的公式。

除了固定圖片的位置，我們還可以進一步操作和美化插入的圖片，如設定邊框、新增陰影、調整透明度等。這些功能可以透過Excel的格式設定或使用VBA宏來實現。

5. 小結

本文介紹瞭如何將插入的圖片在Excel表格中固定在單元格內，提高表格資料的可讀性和美觀性。透過設定圖片屬性或使用VBA宏程式設計，我們可以靈活地控制圖片的位置和大小，確保圖片與對應單元格的一致性。同時，在實際應用中我們還可以根據需要進行更多樣式和操作的設定，使Excel表格更加豐富和專業。

（篇幅有限，以上為文中的一個示例，其他示例及相關程式碼請參考附錄。）

附錄

示例1：透過設定圖片屬性固定位置

設定圖片屬性中的“固定在單元格”選項，即可實現將圖片固定在對應單元格。

示例2：使用VBA宏插入並固定位置的圖片

透過VBA宏程式設計，我們可以自動插入圖片並設定位置，效果更加靈活和自定義。

Sub InsertAndFixImage()
    Dim rng As Range
    Dim pic As Picture

    ' 選中要插入圖片的單元格
    Set rng = Selection

    ' 插入圖片
    Set pic = ActiveSheet.Pictures.Insert("C:\path\to\image.jpg")

    ' 調整圖片大小與位置
    pic.Top = rng.Top
    pic.Left = rng.Left
    pic.Height = rng.Height
    pic.Width = rng.Width

    ' 設定圖片屬性
    pic.Placement = xlMoveAndSize
End Sub

示例3：設定圖片邊框和樣式

透過設定圖片的邊框和樣式，可以進一步美化插入的圖片。

Sub SetImageStyle()
    Dim pic As Picture

    ' 選中要設定樣式的圖片
    Set pic = ActiveSheet.Pictures(Application.Caller)

    ' 設定邊框樣式
    pic.Border.LineStyle = xlContinuous
    pic.Border.Weight = xlThin
    pic.Border.Color = RGB(0, 0, 0) ' 設定邊框顏色為黑色

    ' 設定圖片透明度
    pic.ShapeRange.Fill.Transparency = 0.5 ' 設定透明度為50%
End Sub

以上示例僅展示了一些常見的操作和設定，讀者可以根據實際需要進行擴充套件和調整。

示例4：將所有圖片設定為3x3大小

1、開啟excel檔案，按住鍵盤上的“Alt+F11”，開啟VBA編輯器。

2、在左側的專案資源管理器中，雙擊要操作的工作表名稱。

3、在右側的程式碼視窗中，輸入以下程式碼：

Sub ResizePics()
    Dim pic As Shape
    For Each pic In ActiveSheet.Shapes
    If pic.Type = msoPicture Then
        pic.LockAspectRatio = msoFalse
        pic.Width = Application.CentimetersToPoints(3)
        pic.Height = Application.CentimetersToPoints(3)
    End If
Next pic
End Sub

4、按住鍵盤上的“F5”，執行程式碼。所有的圖片就會統一調整為3釐米×3釐米的大小。