テキストボックスに画像を挿入するにはどうすればよいですか？

デフォルトでは、挿入機能を使用してワークシートに画像やイメージを簡単に挿入できますが、この機能はテキストボックスへの画像挿入には適用されません。この記事では、必要に応じてテキストボックスに画像を挿入する方法をお伝えします。

VBAコードを使用してテキストボックスに画像またはイメージを挿入する

VBAコードを使用してテキストボックスに画像またはイメージを挿入する

テキストボックスに画像を挿入するために、以下のVBAコードが役立つかもしれません。次の手順で行ってください：

1. 挿入 > テキストボックスをクリックしてテキストボックスを挿入し、次にテキストボックスを描画します。スクリーンショットをご覧ください：

2. 次に、ALT + F11キーを押したままにして、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3. 挿入 > モジュールをクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: テキストボックスに画像を挿入する：

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

注釈: 上記のコードでは、Sheet4は画像を挿入したいテキストボックスが含まれているシート名であり、C:\Users\DT168\Desktop\pictures\Apple.JPGは挿入したい画像のパスです。これらを必要に応じて変更してください。

4. そして、F5キーを押してこのコードを実行すると、指定された画像がすぐにテキストボックスに挿入されます。必要に応じてテキストボックスを編集することもできます。スクリーンショットをご覧ください：

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

関連記事：

テキストボックスにデフォルト値を設定するにはどうすればよいですか？

テキストボックスに数字のみを入力できるようにするにはどうすればよいですか？

テキストボックスでスペルチェックを適用するにはどうすればよいですか？

Excelで値に基づいてテキストボックスの色を変更するにはどうすればよいですか？