![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_13.png?e8efa67)
Sub 画像挿入()
ActiveSheet.Unprotect Password:="pass"
Application.Dialogs(xlDialogInsertPicture).Show
If Dialog1.Show Then
With ActiveSheet.Pictures(1)
.Top = Range("D31").Top
.Left = Range("D31").Top
Selection.ShapeRange.IncrementLeft -126#
Selection.ShapeRange.IncrementTop 21.75
End With
ActiveSheet.Protect Password:="pass", DrawingObjects:=True, _
contents:=True, UserInterfaceOnly:=True
End Sub
現在、ダイアログ表示で画像を貼り付けられるように設定しています。
2点質問があり、お答えしていただければと思います。
まず、ダイアログ表示時にキャンセルを押した場合エラーメッセージが
出てきますので、キャンセルを押した場合にダイアログが閉じるように
設定する。
2点目が、間違えて貼り付けてしまった画像を削除する事。
保護をマクロの後にしますので、貼り付けてしまったらその画像を
選択して削除が出来ません。
削除ボタンで貼り付けた画像を削除したいのですがいい方法は
ございますでしょうか?
緊急ですのでどなたかお答え頂けますでしょうか、よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
1点目
Application.Dialogs(xlDialogInsertPicture).Show
を
Dim rtn
rtn = Application.Dialogs(xlDialogInsertPicture).Show
If rtn = False Then Exit Sub
にすればOK
2点目
> 削除ボタンで貼り付けた画像を削除したいのですが
削除ボタンって何ですか?
自前のマクロを走らせるボタンなのであれば、マクロで保護解除したらどうですか?
参考にさせて頂きました、何とかなりそうです。
削除ボタンって言うのは貼り付けたあとに、削除を押すと
貼り付けた画像が消えるというマクロです。
こちらも解決に向かっています、ありがとうございました。
No.2
- 回答日時:
あまり良くない案かもしれませんが
Sub try()
If Application.Dialogs(xlDialogInsertPicture).Show Then
With ActiveSheet
.Unprotect Password:="pass"
Selection.OnAction = "deltest"
.Protect Password:="pass", _
DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True
End With
End If
End Sub
Sub deltest()
If MsgBox("del?", vbOKCancel) = vbOK Then
ActiveSheet.Pictures(Application.Caller).Delete
End If
End Sub
...と、Pictureに削除マクロを登録、という手もありますね。
貼り付け位置はその時のActiveCellです。
適当にアレンジしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) Excelのマクロコードについて教えてください 1 2022/03/27 12:02
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バクサイの投稿を削除したいの...
-
もう関わりたくない人がいたらL...
-
指定した文字があった場合、そ...
-
VBA IF文でORを使ったとき後ろ...
-
(Access)複数条件の重複デー...
-
【エクセル】セル内の右側のみ...
-
エクセルで住所の混在する「丁...
-
Yahooフリマってどれくらい時間...
-
喧嘩をしてLINE削除され、 また...
-
VBA:Openステートメントで開い...
-
Gboardの予測変換についての質...
-
データの削除件数が知りたいです
-
告白してフラれた相手の連絡先...
-
CD-Rに焼いた音楽を消すには☆
-
女友達にLINEしたら、既読スル...
-
ハメ撮りが流出したら
-
VBA 編集可能な範囲の指定につ...
-
APP:My Web Searchが、Dfender...
-
Excel 数式を入れているため、...
-
バッチファイルを使用したsql@p...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
指定した文字があった場合、そ...
-
vba 削除
-
VBA:Openステートメントで開い...
-
エクセルで住所の混在する「丁...
-
もう関わりたくない人がいたらL...
-
今日の日付が過ぎたらその行を...
-
ハメ撮りが流出したら
-
喧嘩をしてLINE削除され、 また...
-
エクセルVBAで行削除時にエラー...
-
外付けSSDのデータを改ざんされ...
-
Facebookメッセンジャーの不具合
-
lineスタンプの使用した使用履...
-
この質問サイトはどうしてヤフ...
-
アクセスにおいて間違って削除...
-
女友達にLINEしたら、既読スル...
-
ダブルクォーテーションの削除...
-
VBA IF文でORを使ったとき後ろ...
-
すべてやりきった、大満足を意...
-
(Access)複数条件の重複デー...
-
回答のついた質問を削除すると...
おすすめ情報