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"。