
No.2ベストアンサー
- 回答日時:
あっ!ごめんなさい
エラー処理を忘れてました
--------------------------------------------------------------------------------
Public Sub Sample(intR As Integer)
Dim myFile As Variant
myFile = Application.GetOpenFilename()
If VarType(myFile) = vbBoolean Then
Else
ActiveSheet.Cells(intR, 1).Select
With ActiveSheet.Pictures.Insert(myFile)
.Width = ActiveSheet.Cells(intR, 1).Width
.Height = ActiveSheet.Cells(intR, 1).Height
End With
End If
End Sub
--------------------------------------------------------------------------------
If以下の構文をElse内に入れてください(;´・ω・)
非常に丁寧な回答ありがとうございます!
当方マクロをやった事がないので
これを足掛かりに勉強します。
rukaandkaito様の回答は自分が求めていた
回答そのものです!
お礼の返答が遅くなり大変申し訳ないです;
本当にありがとうございます!
No.4
- 回答日時:
「写真を挿入」ボタンを配置するのって、面倒くさくないですか?
例えば、Worksheet_BeforeRightClickイベントプロシジャに、次のマクロをコーディングします。
写真を挿入したい複数のセルに、普通の文字列で「写真を挿入」と入力しておきます。
そうすると、該当セルを右クリックすることにより「図の挿入」ウィンドウが表示されるようになります。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.CountLarge = 1 And Target(1).Value = "写真を挿入" Then
Cancel = True
With Application.Dialogs(xlDialogInsertPicture)
If .Show = -1 Then Selection.ShapeRange.Width = Target.Width
End With
End If
End Sub
知恵を貸していただきありがとうございます!
今の今までお礼の返答ができておらず心苦しい限りです。
ママチャリ様の提示していただいた方法も視野に入れて
やってみたいと思います!
ありがとうございます!
No.3
- 回答日時:
こんにちは!
お望みの方法でないと思いますが・・・安直なやり方です。
オートシェイプの四角形を好みの大きさに挿入しておきます(「枠線なし」がいいかも・・・)
あとはオートシェイプ上でダブルクリック → 図形の塗りつぶし → 図 → 好みの画像を選択!
これでオートシェイプ内に画像が収まります。m(_ _)m
目からウロコが落ちるようなやりかたですね( ゚Д゚)!
マクロを組まないと出来ないと思っていた作業ですが
これなら簡単に出来そうです^^
お礼の返答が遅くなり大変申し訳ないです。
知恵を貸して頂きありがとうございます!
No.1
- 回答日時:
ではまず、対象のセルにActiveXのボタンを貼り付けましょう
ボタンをダブルクリックしコードには対象の行番号を引数にサブルーチンを呼び出します
以下ワークシートと標準モジュールにそれぞれ記載してください。標準モジュールのほうはそのままコピペで構いませんが、ボタンの方は対象の座標(行位置)を必ず指定してください。
Sheet1(Sheet1)
--------------------------------------------------------------------------------
Private Sub cmd01_Click()
Call Sample(2)
End Sub
Private Sub cmd02_Click()
Call Sample(5)
End Sub
--------------------------------------------------------------------------------
Module1
--------------------------------------------------------------------------------
Public Sub Sample(intR As Integer)
Dim myFile As Variant
myFile = Application.GetOpenFilename()
If VarType(myFile) = vbBoolean Then
Else
End If
ActiveSheet.Cells(intR, 1).Select
With ActiveSheet.Pictures.Insert(myFile)
.Width = ActiveSheet.Cells(intR, 1).Width
.Height = ActiveSheet.Cells(intR, 1).Height
End With
End Sub
--------------------------------------------------------------------------------
お試しください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- 会計ソフト・業務用ソフト Excelマクロに詳しい方教えてください 1 2023/06/29 16:18
- その他(Microsoft Office) EXCELでバーコードを作成すると白くなってコードが見えません 1 2022/04/04 14:24
- Excel(エクセル) マクロを教えてください 3 2023/07/31 21:57
- Excel(エクセル) マクロを教えてください 2 2023/07/30 23:05
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Word(ワード) 写真3枚をA4に貼り付けたい 5 2023/07/03 14:36
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) Excelでオートフィルのやり方がわかりません。 写真の十字カーソルが黒く変わるはずなのですが変わら 3 2022/07/01 16:36
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
【EXCEL VBA】ダブルクリックでセルのサイズに合わせて画像を挿入に機能を追加したいです。
Visual Basic(VBA)
-
エクセルで簡単に写真を挿入したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードでページ番号を挿入しま...
-
エクセルで複数行に一度に改ペ...
-
【緊急】word2016の図表番号の...
-
ワードで表を作って、中に入れ...
-
2頁にまたがる表の表番号
-
EXCEL 改ページ自動挿入方法を...
-
エクセルの超初心者です…
-
PDFに白紙ページを挿入できるフ...
-
ワード文書で1ページのみ別の...
-
不要に貯まっていく相互参照の...
-
wordの相互参照機能を使うと改...
-
MacのPages 印刷設定でヘッダに...
-
Wordで脚注をページ下部ではな...
-
ワードの図表番号の挿入で生じ...
-
同じワードファイル内で「目次...
-
エクセルで改ページを連続挿入方法
-
Power Point の直線が双方向矢...
-
Wordで日付、時刻挿入について...
-
EXCEL 最終行に行を挿入(追加...
-
WORDの表にタイトル(?)をつけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードでページ番号を挿入しま...
-
ワード文書で1ページのみ別の...
-
エクセルで複数行に一度に改ペ...
-
2頁にまたがる表の表番号
-
ワードの図表番号の挿入で生じ...
-
EXCEL 改ページ自動挿入方法を...
-
エクセルの超初心者です…
-
不要に貯まっていく相互参照の...
-
【緊急】word2016の図表番号の...
-
ワードで表を作って、中に入れ...
-
Wordで脚注をページ下部ではな...
-
WORDの表にタイトル(?)をつけ...
-
wordの相互参照機能を使うと改...
-
EXCEL 最終行に行を挿入(追加...
-
PDFに白紙ページを挿入できるフ...
-
Wordで日付、時刻挿入について...
-
エクセルで改ページを連続挿入方法
-
texのエラ-で
-
Wordに回覧、丸秘等を挿入したい
-
WORD:ページ毎に独立して編集...
おすすめ情報