手持ちの本(4冊)やインターネットで探せなかったので、教えてください。
エクセルのシートに15枚の画像(bitmap)が貼られており
このままではファイルが重いので、同サイズのjpegに変換したいのですが・・・
手でやると 画像選択→切り取り→貼り付けセルを選択→型式を選択して貼り付け→図(jpeg)
以下マクロの記録
ActiveSheet.Shapes.Range(Array("図 11")).Select
Selection.Cut
Range("H60").Select
ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:= _
False
End Sub
となります。
これをVBAで数10ファイル連続で実行したいのですが、1つ問題があります。
画像はカウント後に配列で取り込み順次処理していきますが、
同じ場所に同じ大きさで貼りたいのですが、元画像を貼り付けているセルの番地の
取得をどうしたらよいか悩んでいます コレ → Range("H60").Select
画像が張り付いているセルは複数で左上のセルを選択して貼り付けしたいのですが・・・
貼り付けた画像(bitmap)は名前が自動的に振られているのでセルを指定して貼り付けると
元の位置に貼られない可能性があるので・・・
貼り間違いなどで、同じ位置でも図の名前(図11等)が違ってしまっている場合
説明が下手で申し訳ありませんが、ご存知の方よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんなところでいかがでしょうか。
xl2010で(少しだけ)試しています。ご参考まで。
Sub test()
Dim shp As Shape
Dim sh As Worksheet
Dim shpAddress As String
Set sh = ActiveSheet
For Each shp In sh.Shapes
If shp.Type = msoPicture Then
shpAddress = shp.TopLeftCell.Address
shp.Cut
sh.Range(shpAddress).Activate
sh.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:=False
End If
Next shp
End Sub
お忙しいところ誠にすみません。
年1、2回くらいしかマクロをやらないので、
基本的なところも忘れているので、大変助かります。
早速、連続処理のマクロに移植して動かしてみたいと思います。
大変ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Excel(エクセル) EXCELマクロでandroidタブレットから取りんだJPEGファイルをうまくセルに貼り付けられない 2 2022/07/31 15:03
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) シート間で同じ値があったら指定範囲をコピーして貼り付け 1 2022/11/07 08:01
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルのVBAでクリップボードにコピーした画像をpng(or jpg or bmp)保存したい
Visual Basic(VBA)
-
bmp画像をjpegやpng画像に圧縮する方法
Visual Basic(VBA)
-
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
-
4
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
-
5
Excelに貼り付けた画像を圧縮するマクロについて
Visual Basic(VBA)
-
6
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
7
VBAで画像圧縮はできますか?
Visual Basic(VBA)
-
8
エクセルVBAで画像を貼り付ける座標設定方法は?
PowerPoint(パワーポイント)
-
9
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
10
エクセルの画像をJPGファイルに変えたい
Excel(エクセル)
-
11
エクセルでエラーが出て困っています。
Excel(エクセル)
-
12
ExcelVBAで画像のサイズを調べるマクロを作ろうと思っています
Access(アクセス)
-
13
Excelでエラー(#N/Aなど)値を含む範囲で最大値や最小値をもとめ
その他(Microsoft Office)
-
14
VBAでJPGサイズ変更
Visual Basic(VBA)
-
15
対象セル内(複数)が埋まったら文字を表示させたい
Excel(エクセル)
-
16
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
17
エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
Excel(エクセル)
-
18
マクロで画像挿入→エラー「リンクされたイメージを表
Excel(エクセル)
-
19
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
20
ダブルクリックで貼り付けた画像からリンクのみ削除し、画像を残したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルをクリック⇒そのセルに入力...
-
対象セル内(複数)が埋まった...
-
エクセル 足して割る
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
Excelのチェックボックスの使い...
-
エクセル オートフィルタで絞...
-
Excelで住所を2つ(町名迄と番...
-
セルに特定の色が付いていたら...
-
枠に収まらない文字を非表示に...
-
Excel:指定セル以下全てのセル...
-
貼り付けで複数セルに貼り付けたい
-
EXCEL VBA セルに既に入...
-
excelの特定のセルの隣のセル指...
-
エクセルの一つのセルに複数の...
-
Excelで、「特定のセル」に入力...
-
Excelでのコメント表示位置
-
【Excel】 セルの色での判断は...
-
エクセルで縦に1112223...
-
セルの高さ(行高)を求めるには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
Excelで数式内の文字色を一部だ...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
エクセル 足して割る
-
excelのCOUNTIF関数で、『範囲=...
-
EXCEL VBA セルに既に入...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
(Excel)数字記入セルの数値の後...
-
エクセルの一つのセルに複数の...
-
【Excel】 セルの色での判断は...
-
Excel2003 の『コメント』の編...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
複数のセルのいずれかに数字が...
-
枠に収まらない文字を非表示に...
-
excelの特定のセルの隣のセル指...
おすすめ情報