A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> Fo To Next で、A1:A7の部分を変えてやれば良いと思いますが
そこだけでは足りません。
If sp.TopLeftCell.Address = "$A$1" Then
も$A$9、$A$17・・・・と列アドレスを8ずつ増やしながら回す必要があるでしょう。
ご自身でやってみて、うまくいかなかったらそのコードをここに書いて見せて下されば、それに対するご回答が付くかと思います。
No.1
- 回答日時:
こんにちは
やりたいことしか書いてないので、何を質問したいのか不明です。
まるっとコードが欲しいのかも知れませんが、その割には「A1」というセル位置以外は抽象的なので具体的なことがわかりません。
不明点は勝手に解釈して、こんな感じなのでしょうか?
※ 画像は回転していないと仮定しています。
(多分、お好みには合わないかもなので、後はお好きにいじってください)
Sub Q13768724()
Dim sp, r, d
Set r = Range("A1:A7")
d = Application.Min(r.Height, r.Width) / 10
If d = 0 Then Exit Sub
For Each sp In ActiveSheet.Pictures
If sp.TopLeftCell.Address = "$A$1" Then
sp.Top = d / 2
sp.Left = d / 2
sp.ShapeRange.LockAspectRatio = False
sp.Width = r.Width - d
sp.Height = r.Height - d
End If
Next sp
End Sub
こんにちは
思う通りになりました。ありがとうございます。
実は、このような画像が、一行の空白行を挟んで、A9、A17・・・と続いています。
Fo To Next で、A1:A7の部分を変えてやれば良いと思いますが、よろしければ教えていただけないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】 5 2023/11/16 01:27
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセル シート内のボックスを縦並びから横並びに 7 2023/04/05 04:28
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Excel(エクセル) セル内の一部に別セルを差し込む 3 2022/09/18 04:39
- Excel(エクセル) エクセルで日付が入っているセルを一定の法則に従って違うセルに表示したい 2 2022/04/04 17:16
- Visual Basic(VBA) Excelで画像URLを1つずつセルに振り分けたい 2 2024/02/24 01:59
- Excel(エクセル) If関数に関する質問です。(再掲) 3 2022/10/01 20:51
- Excel(エクセル) エクセル 小数点以下切り捨て 教えてください 1 2022/08/03 19:14
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
エクセル関数に詳しい方教えてください
Excel(エクセル)
-
Excelで、10000,20000,30000と表示されているのですが、時々10000,20000
Excel(エクセル)
-
-
4
UNIQUE関数が使えないバージョンで重複削除したい。
Excel(エクセル)
-
5
エクセルの表示について
Excel(エクセル)
-
6
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
7
Excelの入力方法について
Excel(エクセル)
-
8
エクセルの神よ、ご回答を! エクセルのコメント欄について質問2点。
Excel(エクセル)
-
9
[オートフィルタ]の適用範囲の確認は可能か?
Excel(エクセル)
-
10
Excel vbaのテキストボックスの扱い
Excel(エクセル)
-
11
エクセルでチェックボックスを一列にたくさんつくり、各行にリンク先のセルを設定する場合、どのようにした
Excel(エクセル)
-
12
エクセルで例えば、関数を使ってA1 に㈱今野や国際興業バス㈱とあった場合B1に㈱と一括で表示(置換)
その他(Microsoft Office)
-
13
Excelはなんで先頭の0を消すんですか?しかもCSVとかもなんでそもそも勝手に元のデータ変えるのに
Excel(エクセル)
-
14
エクセルで日付を数字+アルファベットと比較したい
Excel(エクセル)
-
15
Excel 漢字二文字の先頭と最後 入れ替え
Excel(エクセル)
-
16
VBAの質問になります 行の非表示
Visual Basic(VBA)
-
17
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
18
列を増やさずに、月だけの件数を求める場合
Excel(エクセル)
-
19
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
20
Excelで全角を半角にしたいのですが、
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画像の拡大率を固定したまま次...
-
Snipping Toolのキャプチャ画面...
-
拡大できるPCの動画プレーヤー...
-
『aviutl』文字を中心から拡大...
-
Photoshopで拡大縮小時にアンチ...
-
スクリーンショットを縮小して...
-
細長い動画ファイルの中心部を...
-
スクリーンショットの画像を印...
-
一太郎2021で画像サイズをmmで...
-
Illustratorでクリッピングマス...
-
Twitterのアイコンの画質悪すぎ...
-
画像を劣化させずに拡大・縮小...
-
ワードで作った地図をラベルマ...
-
エクセルの図を自由に拡大、縮...
-
約1000バイトの画像を10...
-
画像のデータの画素数上げるやり方
-
jpegをリサイズした際にでるギ...
-
GIMPとInkscapeについて
-
Gifの余白をトリミングして、GI...
-
動画の一部を 画像として保存...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Snipping Toolのキャプチャ画面...
-
画像の拡大率を固定したまま次...
-
約1000バイトの画像を10...
-
拡大できるPCの動画プレーヤー...
-
Photoshopで拡大縮小時にアンチ...
-
フォトショップで拡大する時、...
-
画像を劣化させずに拡大・縮小...
-
Adobe Premiere JPEG画像取り...
-
GIMPとInkscapeについて
-
VBA
-
一太郎2021で画像サイズをmmで...
-
スクリーンショットを縮小して...
-
photoshop パターンのみ拡大縮...
-
『aviutl』文字を中心から拡大...
-
細長い動画ファイルの中心部を...
-
画像ファイルをPDF化する際にぼ...
-
Illustratorでクリッピングマス...
-
MacBook pro 突然画面拡大され...
-
Twitterのアイコンの画質悪すぎ...
-
Gifの余白をトリミングして、GI...
おすすめ情報
列をB列にし、タイトルを付けるため行を2行挿入してもA1に貼りつきます。Fo To Next も上手くいきません。
複数の行にまたがり拡大することができました。
ありがとうございました。