以前、下記ページで回答(公開)されていたマクロについてなのですが、
私に一番あっているので使わせて頂きたいと思っています。
http://oshiete.homes.jp/qa2300268.html
その中で、貼付画像サイズが「縦横比維持」に設定されています。
画像を選択した結合セルの大きさで貼付るには、どこを、どのように修正すればいいのでしょうか?
宜しくお願い致します。m(_ _)m
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
さすがKenKen_SPさん、可読性が高いし、ビューティフルですねぇ。
KenKen_SPさんが回答すのが一番いいのでしょうが、ちょこっと繋ぎということで。
アクティブセル(結合、未結合関係なく)に貼り付けたいのですよね。
(1)以下のコードを削除
'------------------------------------
> ' 貼り付け開始セルを選択
> Range("C5").Select
'------------------------------------
(2)以下のコードを丸ごと入れ替え
'----------------------------------------
With PIC.ShapeRange
.LockAspectRatio = False '● 縦横比維持しない
.Height = ActiveCell.MergeArea.Height
.Width = ActiveCell.MergeArea.Width '●幅も設定
End With
'----------------------------------------------------
以上。
onlyromさん、うまく動作しました。
ありがとうございます。
onlyromさん、KenKen_SPさん、
使い勝手の良い工事写真帳になりました。
感謝致します。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) Excel 毎日手作業で時間がかかって、泣きたいです、、、VBAのプロの方、助けてください。。。 3 2022/10/25 04:26
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Visual Basic(VBA) シート間で同じ値があったら指定範囲をコピーして貼り付け 1 2022/11/07 08:01
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル: セルの枠を超えて表示
-
セル内の一部の文字だけをハイ...
-
Excel countif関数で取り消し線...
-
マウスポインターが白十字のまま
-
エクセルで1つのセルにスクロ...
-
エクセルファイルに _x000D_ と...
-
エクセルの入力規則プルダウン...
-
セルは大きくさせず、中の文字...
-
エクセルでセルを上下に結合し...
-
エクセルの白黒の反転で困って...
-
Excel入力で勝手にエンター押さ...
-
セルを結合しても、文字をセル...
-
エクセルのセル外改行は可能で...
-
エクセルで文字を打つと下に、...
-
エクセルで右隣のセルより優先...
-
全セルの末尾に改行(Alt+Enter...
-
エクセルで画像を透過させて画...
-
エクセルの行の下げ方
-
Excelでcsvやtxtで保存する時に...
-
エクセル 折り返して全体を表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル: セルの枠を超えて表示
-
セル内の一部の文字だけをハイ...
-
Excel countif関数で取り消し線...
-
エクセルで1つのセルにスクロ...
-
セルは大きくさせず、中の文字...
-
エクセルファイルに _x000D_ と...
-
Excelでcsvやtxtで保存する時に...
-
Excel入力で勝手にエンター押さ...
-
マウスポインターが白十字のまま
-
エクセルで画像を透過させて画...
-
エクセルの白黒の反転で困って...
-
エクセル2013で英単語を折り返...
-
セルを結合しても、文字をセル...
-
エクセルで右隣のセルより優先...
-
エクセルの入力規則プルダウン...
-
全セルの末尾に改行(Alt+Enter...
-
VBA:結合されたセルに対する「...
-
エクセルのセル外改行は可能で...
-
エクセルでセルを上下に結合し...
-
Excelで表を作ったところに文字...
おすすめ情報