パワーポイント上で少しずつトリミングを行うマクロを作成したいと思っています。
キー操作の記録でトリミングのコードを確認したところ、以下のようになっていました。
---
ActiveWindow.Selection.ShapeRange.PictureFormat.CropRight = 67.75
変数を1つ定義して、現在のトリミング値を取得し、そこに10ずつさらにトリミングしていくようなマクロを作成しようと思っているのですが、現在のトリミング値を取得するにはどうやればいいのでしょうか。
最後に.Valueをつけて、変数に代入しようとしましたがうまくいきませんでした。
またトリミング後に図の圧縮も行いたいので、圧縮のマクロ記述方法もご教授願います。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ごめんなさい。
ゆっくり考えたら簡単なことでした。
最初のコードはなしでお願いします。
Sub test()
Dim Shp As Shape
For Each Shp In ActiveWindow.Selection.ShapeRange
With Shp
With .PictureFormat
.CropRight = .CropRight + 10
End With
End With
Next
End Sub
Sub test2()
Dim myWidth As Single, origWidth As Single
With ActiveWindow.Selection.ShapeRange(1)
With .PictureFormat
.CropRight = .CropRight + 10
End With
End With
End Sub
ご教授、ありがとうございます。ものすごく助かりました。
最初のコードでできたので、すでにマクロをキーボードに割り当て済なのですが、新しいコードで再度やってみます。
ありがとうございます。
No.1
- 回答日時:
一時的に複写して右のトリミングを0にして横幅を取得、
それと現在の横幅の差をとれば、現在の右のトリミングだと思います。
ほかにも方法はあるかもしれませんが、
考えるの面倒なので、とりあえず。
・複数図形を選択していれば、そのすべてに対して
トリミングするとき
Sub test()
Dim Shp As Shape
Dim myWidth As Single, origWidth As Single
For Each Shp In ActiveWindow.Selection.ShapeRange
With Shp
myWidth = .Width '現在の横幅
With .Duplicate '複写
.PictureFormat.CropRight = 0 '右のトリミング解除
origWidth = .Width 'もともとの横幅
.Delete 'もういらない、ご苦労様
End With
.PictureFormat.CropRight = origWidth - myWidth + 10
End With
Next
End Sub
・ひとつの選択図形のみ
Sub test2()
Dim myWidth As Single, origWidth As Single
With ActiveWindow.Selection.ShapeRange(1)
myWidth = .Width '現在の横幅
With .Duplicate '複写
.PictureFormat.CropRight = 0 '右のトリミング解除
origWidth = .Width 'もともとの横幅
.Delete 'もういらない、ご苦労様
End With
.PictureFormat.CropRight = origWidth - myWidth + 10
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- HTML・CSS トリミングで表示した画像をクリックで元どおりにしたい 3 2022/12/16 18:49
- デスクトップパソコン Windows11でスクショする方法がわかりません。 調べましたが、どうもWindowsキーがあるキ 8 2022/06/05 05:37
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- 画像編集・動画編集・音楽編集 わかりやすい写真編集ソフト 3 2022/07/16 09:59
- Photoshop(フォトショップ) ペイントで丸くトリミングして保存って出来ないのでしょうか? 9 2022/10/03 14:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- その他(ペット) シーズ犬を2匹飼っています 3週間ごとにトリミングに連れて行ってるのですが (シャープセット シャン 1 2022/07/10 18:58
- Visual Basic(VBA) VBA アドインについて お詳しい方 ご教授をお願いします。 相談事項 現在以下の対応を実施した所、 1 2022/11/02 16:53
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
大量の画像を一度にトリミングしたい
フリーソフト
-
なぜマクロの記録がなくなってしまったのでしょうか?
Excel(エクセル)
-
powerpointマクロでJPEG画像サイズを変更したい
Visual Basic(VBA)
-
-
4
PowerPointでマクロをショートカットキーに割り当てる方法
Excel(エクセル)
-
5
【PowerPoint VBAの高速化】
その他(プログラミング・Web制作)
-
6
PPTのコマンドボタンがクリックできません
その他(Microsoft Office)
-
7
パワーポイントで、スライドごとに1枚の図が入ったスライドが100くらい
PowerPoint(パワーポイント)
-
8
パワポの複数ページにまたがる表の位置を揃えたい
PowerPoint(パワーポイント)
-
9
EXCEL VBAで画像をトリミング
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
凶暴な犬のトリミングについて。
-
愛犬をトリミングに出しました...
-
パワーポイントでトリミングを...
-
犬についた汚物の臭いが取れな...
-
狂犬病予防注射後のシャンプー...
-
ペルシャ猫の頑固な毛玉で困っ...
-
トイプードルのトリミング代
-
トリミング後の犬に目に細かい...
-
トリミングから帰ってから人(...
-
トイプードルの毛が、フワフワ...
-
犬の肛門
-
犬のトリミングをした結果、カ...
-
長毛種のネコのお尻の毛に・・・
-
生後2ヶ月の子犬にシャンプー...
-
(小型~中型犬)室内犬ってお...
-
トリマーの怪我について
-
トイプードルはトリミングだけ...
-
犬の毛玉とり
-
千葉県木更津市君津市近辺で犬...
-
ダックスの耳に毛玉が!カット...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
生後2ヶ月の子犬にシャンプー...
-
ペルシャ猫の頑固な毛玉で困っ...
-
愛犬をトリミングに出しました...
-
トリミング後、震えがとまらない
-
長毛種のネコのお尻の毛に・・・
-
犬についた汚物の臭いが取れな...
-
凶暴な犬のトリミングについて。
-
犬の毛玉にオイルは?
-
トイプードルの毛が、フワフワ...
-
トリミングから帰ってから人(...
-
ヒート終了間際のトリミング
-
パワーポイントでトリミングを...
-
臆病で本気噛みをしてしまう
-
Kindole自炊のPDFの余白につい...
-
あーっどうしよう! 今週犬のト...
-
トリミング時の怪我の対応について
-
人間のバリカンで犬のカットは...
-
トイプードルのカットについて
-
ペットワールドアミーゴのトリ...
-
犬を飼っていてトリミングとか...
おすすめ情報