テキストボックスに画像を挿入する方法は？

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

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

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

画像をテキストボックスに挿入するには、次のVBAコードが役立つ場合があります。次のようにしてください。

1。 クリックしてテキストボックスを挿入します インセット > テキストボックス、次にテキストボックスを描画します。スクリーンショットを参照してください。

2。 次に、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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

Note：上記のコードでは、 Sheet4 画像を挿入するテキストボックスを含むシート名であり、 C：\ Users \ DT168 \ Desktop \ pictures \ Apple.JPG 挿入する画像の画像パスです。必要に応じて変更する必要があります。

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

関連記事：

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

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

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

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