エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
エクセルのセルにデータとして画像を貼り付ける?
Sampleとして、A3のセルに入れたファイル名(+.jpg)の写真を、C3のセルに表示するものです。A3のファイル... Sampleとして、A3のセルに入れたファイル名(+.jpg)の写真を、C3のセルに表示するものです。A3のファイル名に変更があればその時点で写真を変更するようにしてあります。複数の写真の場合は、for~nextなどで処理するといいと思います。 写真のパスは、Photo_Pathで指定します。 Private Sub Worksheet_Change(ByVal Target As Range) '指定のセルA3以外であれば処理しない If Target.Column <> 1 And Target.Row <> 3 Then Exit Sub Photo_Path = "D:\photo\" '写真のフォルダ Dim 写真 As Shape '表示されている写真をすべて消す。 For Each 写真 In ActiveSheet.Shapes If 写真.Type = 13 Then