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ランキング
-
教えてgooの機能に関するアンケ...
-
回答が付かなかったので、再質...
-
指定した文字があった場合、そ...
-
VBA:Openステートメントで開い...
-
Windows11に残されたWindows10...
-
マクロで特定の行まで削除する...
-
教えて!gooで、自分がした回答...
-
ウェブページへのアクセス不可 ...
-
もう関わりたくない人がいたらL...
-
エクセルで住所の混在する「丁...
-
アクセスにおいて間違って削除...
-
ハメ撮りが流出したら
-
ダブルクォーテーションの削除...
-
Adobe AcrobatのPDFのページ削除
-
Facebookメッセンジャーの不具合
-
恋愛相談かてで
-
ジャニーズチケット掲示板の投...
-
今日の日付が過ぎたらその行を...
-
メーリングリストから特定の人...
-
教えて!goo質問の削除方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA:Openステートメントで開い...
-
「医者も看護師も自分に嫌がら...
-
ハメ撮りが流出したら
-
指定した文字があった場合、そ...
-
教えて!gooにはどのカテゴリが...
-
もう関わりたくない人がいたらL...
-
真剣な質問ほど消されるのはど...
-
Facebookメッセンジャーの不具合
-
インスタグラムのギャラリーの...
-
エクセルで住所の混在する「丁...
-
回答してる間に質問が消えるっ...
-
アクセスにおいて間違って削除...
-
喧嘩をしてLINE削除され、 また...
-
バッチファイルを使用したsql@p...
-
Facebookに自分が四つもアップ...
-
ウェブページへのアクセス不可 ...
-
同じ質問
-
日テレニュースHP、記事削除は...
-
女友達にLINEしたら、既読スル...
-
エクセルVBAで行削除時にエラー...
おすすめ情報