トップページ > プログラム > 2015年09月15日 > cXCl5+xg

書き込み順位＆時間帯一覧

19 位/147 ID中時間01234567891011121314151617181920212223Total
書き込み数0000000000000000000000112



使用した名前一覧書き込んだスレッド一覧
デフォルトの名無しさん
Excel VBA 質問スレ Part37 [転載禁止]©2ch.net

書き込みレス一覧

Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
227 ：デフォルトの名無しさん[sage]：2015/09/15(火) 22:56:57.09 ID:cXCl5+xg
教えてください。
オートシェイプ２つをグループ化し、縦横比を固定にしたいのです。

shpN(1)、shpN(2)にオートシェイプのnameが入っています。
ActiveSheet.Shapes.Range(shpN).group 　・・・グループ化できました。

Selection.LockAspectRatio = True　・・・エラー
Selection.ShapeRange.LockAspectRatio = True　・・・エラー
（なんとか）.LockAspectRatio = True　　だと思うのですが。
Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
230 ：デフォルトの名無しさん[sage]：2015/09/15(火) 23:38:11.19 ID:cXCl5+xg
>>228、229
レスありがとう。どちらもやってみたんだけど、エラーになるんです。
（グループ化直後、selectionされてない？のかな。）
で、以下で自己解決しました。

For Each gp In ActiveSheet.Shapes
If gp.Type = msoGroup Then
gp.LockAspectRatio = msoTrue
End If
Next


※このページは、『２ちゃんねる』の書き込みを基に自動生成したものです。オリジナルはリンク先の２ちゃんねるの書き込みです。
※このサイトでオリジナルの書き込みについては対応できません。
※何か問題のある場合はメールをしてください。対応します。