Excel 表單中使用 VBA Image 控件可以通過以下步驟實現：

一、添加 Image 控件

1. 打開需要添加 Image 控件的 Excel 表單，然后按 Alt + F11 鍵進入 VBA 編輯器。
2. 在 VBA 編輯器中，選擇需要添加 Image 控件的工作表。
3. 在“插入”菜單中，選擇“用戶窗體”命令。
4. 在“用戶窗體”對話框中，選擇“Image”控件，并將其拖放到用戶窗體上。
5. 關閉“用戶窗體”對話框，返回 Excel 表單。

二、設置 Image 控件屬性

1. 在 Excel 表單中，右鍵單擊 Image 控件，選擇“屬性”命令。
2. 在“屬性”對話框中，可以設置 Image 控件的各種屬性。以下是一些常用的屬性：Picture：設置要顯示的圖片。點擊“瀏覽”按鈕選擇圖片文件。AutoSize：設置圖片是否自動調整大小以適應控件的大小。Stretch：設置圖片的拉伸方式。Visible：設置圖片控件是否可見。

三、編寫 VBA 代碼

下面是一個簡單的 VBA 代碼示例，演示如何在 Excel 表單中使用 Image 控件顯示圖片：

Sub ShowImage()
    ' 設置圖片文件路徑
    Dim strPic As String
    strPic="C:\Pictures\image.jpg" '請替換為你的圖片文件路徑
    
    ' 設置 Image 控件屬性
    With Me.Image1
      .Visible=True
      .AutoSize=True
      .Picture=strPic
    End With
End Sub

在上述代碼中，我們首先指定了要顯示的圖片文件路徑 strPic。然后，我們使用 Sheet1.Image1 選擇第一個 Image 控件（如果你添加了多個 Image 控件，請相應地更改索引號）。通過設置 Visible 屬性為 True，使 Image 控件可見。設置 AutoSize 屬性為 True，使圖片自動調整大小以適應控件的大小。最后，使用 Picture 屬性加載圖片文件。

請確保將代碼中的 strPic 替換為你實際的圖片文件路徑，并根據需要進行適當的調整。

運行上述代碼后，圖片將顯示在 Excel 表單中。你可以根據需要編寫更多的代碼來控制 Image 控件的行為，例如根據單元格的值更改圖片等。

蒙環境搭建「鏈接」

Image是用來顯示圖片的組件

Image的自有XML屬性見下表

創建Image

在“Project”窗口，打開“entry > src > main > resources > base > media”，添加一個圖片至media文件夾下，以“plant.JPG”為

既可以在XML中創建Image，也可以在代碼中創建Image，兩種方式如下：

• 在XML中創建Image

<Image
    ohos:id="$+id:image"
    ohos:width="match_content"
    ohos:height="match_content"
    ohos:layout_alignment="center"
    ohos:image_src="$media:plant"/>

在代碼中創建Image

Image image=new Image(getContext());
image.setPixelMap(ResourceTable.Media_plant);

使用Image

設置透明度

<Image
    ohos:id="$+id:image"
    ohos:width="match_content"
    ohos:height="match_content"
    ohos:layout_alignment="center"
    ohos:image_src="$media:plant"
    ohos:alpha="0.5"/>

設置縮放系數

<Image
    ohos:id="$+id:image"
    ohos:width="match_content"
    ohos:height="match_content"
    ohos:layout_alignment="center"
    ohos:image_src="$media:plant"
    ohos:scale_x="0.5"
    ohos:scale_y="0.5"/>

設置縮放方式

當圖片尺寸與Image尺寸不同時，可以根據不同的縮放方式來對圖片進行縮放，如設置Image的寬高為200vp。

以按比例縮小居中顯示為例，設置ohos:scale_mode="zoom_center"

<Image
    ohos:id="$+id:image"
    ohos:width="200vp"
    ohos:height="200vp"
    ohos:layout_alignment="center"
    ohos:image_src="$media:plant"
    ohos:scale_mode="zoom_center"/>

設置裁剪對齊模式

當Image尺寸小于圖片尺寸時，可以對圖片進行裁剪，仍以Image的寬高為200vp為例，小于圖片尺寸。

以左對齊裁剪為例，設置clip_alignment="left"。