Excel2003を利用して仕事の工事写真帳を作成していますがVBAでどうしても上手くいかない部分があるので教えていただければと思い投稿しました。
【仕様】工事写真帳は1シート構成、用紙1枚に3枚画像が入り、画像の右側には摘要欄があります。画像を読み込む位置をダブルクリックするとセルのサイズ(写真サイズに結合してあります)を取得して画像サイズを変更して格納します。
【問題点】2枚以上画像を読み込んだ状態で実行すると目的の画像のサイズが変更にならない場合があります。
画像を削除したことで画像の名前が重複するのが原因だというところまではわかるのですが対処方法がわかりません。アドバイスをお願いします。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
gyo = ActiveCell.Row '画像読込位置の取得
Set scel = Cells(gyo, 3)
scel.Select 'セルサイズの取得
w = Selection.Width
h = Selection.Height
fname = Application.GetOpenFilename _
("画像ファイル,*.gif;*.jpg;*.bmp", 1, "画像ファイルを指定して下さい") '画像読込
If fname = False Then
Exit Sub
End If
ActiveSheet.Pictures.Insert(fname).Select
i% = Selection.Index
Selection.Name = "gazou" & i '画像に名前をつける
Set 画像 = ActiveSheet.Shapes("gazou" & i)
With 画像 '画像のサイズ変更
.LockAspectRatio = False
.Placement = xlFreeFloating
.Placement = xlMove
.Width = w
.Height = h
End With
Range("F" & gyo).Select '摘要欄へ移動
End Sub
No.1ベストアンサー
- 回答日時:
画像にわざわざ名前をつける必要はあるのでしょうか?
(以下は一部抜粋して、少しだけ手を入れました)
Dim pict As String
ActiveSheet.Pictures.Insert(fname).Select
pict = Selection.Name
With ActiveSheet.Shapes(pict) '画像のサイズ変更
.LockAspectRatio = False
.Placement = xlFreeFloating
.Placement = xlMove
.Width = w
.Height = h
End With
これなら画像を繰り返し削除しても大丈夫に思います
回答ありがとうございます。
早速直して実行してみたところ、上手くいきました。
本を1冊購入して一通り目を通しましたが、実務では
ネットで同じような例題を探して利用している状況なので
不要なコードを使用していることが多々ありそうです。
これでやっと実用化ができます。ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
彼と体の相性が良すぎて悩んで...
-
女性が喘いでいるときの男性の...
-
高校生です。彼氏の前で初めて...
-
夫婦の夜の営みについてです。 ...
-
抱きしめたときに勃起したあそ...
-
彼女が感じやすくて可愛い
-
男の人ってなんですぐ勃つの?...
-
キスすれば相手を好きでなくて...
-
男性の方に質問です。 バックで...
-
クンニしたことある人ー ま○こ...
-
彼氏と毎日セックスするのは異...
-
もし週1しか恋人と会えなかった...
-
彼氏のセックスが下手すぎで幻...
-
彼女がフェラをしてくれません。
-
男性に質問です! 電話だけで勃...
-
風俗ってどこまでの接客をします?
-
実家住まいの場合Hはホテル以外...
-
兄妹や姉弟で、キスやエッチし...
-
初体験って気持ちいいの? 男の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
彼と体の相性が良すぎて悩んで...
-
女性が喘いでいるときの男性の...
-
高校生です。彼氏の前で初めて...
-
夫婦の夜の営みについてです。 ...
-
彼氏と毎日セックスするのは異...
-
男性の方に質問です。 バックで...
-
抱きしめたときに勃起したあそ...
-
彼女が感じやすくて可愛い
-
もし週1しか恋人と会えなかった...
-
男の人ってなんですぐ勃つの?...
-
クンニしたことある人ー ま○こ...
-
ふぇらでイカセテくれる うまい...
-
彼氏のセックスが下手すぎで幻...
-
キスすれば相手を好きでなくて...
-
実家住まいの場合Hはホテル以外...
-
兄妹や姉弟で、キスやエッチし...
-
彼女がフェラをしてくれません。
-
男性に質問です! 電話だけで勃...
-
SEXの相性が良すぎると男はダメ...
おすすめ情報