VBAでシェイプの縦横比を%指定で変更したく、下記のように書いています
ActiveSheet.Shapes("Picture 208").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.ScaleWidth 2, msoFalse '横2倍の大きさに
ところが、ScaleWidthが見ている数値が元の図形のものと違うようです。原因を探すためにシェイプの原型のサイズ(幅や高さの数値)を知りたいのですが、VBAからアクセスできるプロパティやメソッドはあるでしょうか?
No.1ベストアンサー
- 回答日時:
元のサイズがいくつかはおいといて、コード自体が間違ってませんか?
LockAspectRatio = msoFalse
これはいいとして、
ScaleWidth 2, msoTrue
ってしないと「元のサイズを基準にする」で 2倍になってくれませんよ。
Dim myShape As Shape
Set myShape = ActiveSheet.Shapes("Picture 208")
myShape.LockAspectRatio = msoFalse
myShape.ScaleHeight 2, msoTrue
myShape.ScaleWidth 2, msoTrue
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
- Excel(エクセル) Excel VBAでのセルやシェイプの色指定について。 たとえば、”red”という文字列を用いて … 4 2022/11/15 09:44
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) VBAでPowerPointからExcelにレイアウト通りに出力する 4 2023/07/05 12:22
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- JavaScript ソースコードのいじる場所が分かりません。 1 2022/12/23 02:06
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) VBAでユークリッド距離を用いて1番近い物を表示 表 裏 縦 横 高さ 縦 横 高さ 名前 1 45 9 2022/10/23 16:52
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Excelマクロ 選択画像の大きさを100%に
その他(Microsoft Office)
-
エクセルVBAで、画像の倍率を知るには、どのようにすればいいのでしょう
Visual Basic(VBA)
-
エクセル 図形の寸法を取得したい
Visual Basic(VBA)
-
-
4
エクセルへ画像挿入、元サイズが同じなのに大きさ違う
Excel(エクセル)
-
5
ExcelVBAで画像のサイズを調べるマクロを作ろうと思っています
Access(アクセス)
-
6
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
EXCEL VBAで画像をトリミング
その他(Microsoft Office)
-
9
画像のピクセルデータの取得
Visual Basic(VBA)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
12
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
13
エクセルVBA 図形の選択法は?
Visual Basic(VBA)
-
14
Excel に貼り付けた図形が、保存した後、再度、開くと勝手に動いている。
Excel(エクセル)
-
15
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
16
エクセル 画像のプロパティで縦横比を固定する。 これをVBAでコードにできますか? 知ってる方おられ
Visual Basic(VBA)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
-
19
VBAでエクセルのシート上の画像のリサイズと配置を行いたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
Labelコントロールに数字を代入...
-
mainメソッドのthrows節で設定...
-
final修飾子を使っているのに、...
-
DataGridViewでセルクリックイ...
-
javascriptからjavaを呼び出したい
-
ウィンドウを最前面にできません
-
エクセルVBAにおけるON TIMEメ...
-
(String args[])というメッソ...
-
VBPをダブルクリックするとたま...
-
列挙型:次の要素を返す?
-
C#.net Define文
-
VBA コピーが出来ません…!
-
コマンドプロンプト実行後に画...
-
onClickで関数呼出し後に、結果...
-
vbaエクセルマクロ RemoveDupli...
-
VB.NETで色を比較するIF文を...
-
ExcelのxlDialogInsertPictureで。
-
Eclipseで呼び出し元参照をしたい
-
canvasに描画したものを全て削...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
Labelコントロールに数字を代入...
-
final修飾子を使っているのに、...
-
エクセルVBAにおけるON TIMEメ...
-
コマンドプロンプト実行後に画...
-
mainメソッドのthrows節で設定...
-
DataGridViewでセルクリックイ...
-
javascriptからjavaを呼び出したい
-
VBPをダブルクリックするとたま...
-
onClickで関数呼出し後に、結果...
-
ExcelのxlDialogInsertPictureで。
-
Refreshメソッドの使い方
-
JSPで<SELECT>の中にDBから持っ...
-
【sendkeysメソッドが動かずに...
-
ウィンドウを最前面にできません
-
(String args[])というメッソ...
-
C# 演算 最大値 最小値 表現の仕方
-
Excel VBA シェイプの原型のサ...
-
VB.netで、シリアル通信のタイ...
-
Excel VBA でExcelを終了したい...
おすすめ情報