Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11204 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【17483】図形の大きさを変更するには カド 04/8/31(火) 16:28 質問[未読]
【17485】Re:図形の大きさを変更するには Kein 04/8/31(火) 17:11 回答[未読]
【17488】Re:図形の大きさを変更するには カド 04/8/31(火) 17:32 質問[未読]
【17490】Re:図形の大きさを変更するには Kein 04/8/31(火) 17:46 回答[未読]
【17492】Re:図形の大きさを変更するには カド 04/8/31(火) 18:50 お礼[未読]
【17483】図形の大きさを変更するには
質問  カド  - 04/8/31(火) 16:28 -
引用なし
パスワード
   環境　office2000　WINXP

いつもお世話になります。

オートシェイプの基本図形から直方体を選び図形を作成しました。
この直方体の高さをＶＢＡを使って、任意の高さに変更したいのです。

マクロの記録を行ったところ、以下のようなコードになり、現状の高さの
何倍にするか指定するようです。

Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromBottomRight
（0.1が倍率だと思う）

これでは使いにくいため、高さの絶対値を指定して、希望の高さに変更できる
コードにしたいのですが、可能であれば教えて下さい。
【17485】Re:図形の大きさを変更するには
回答  Kein  - 04/8/31(火) 17:11 -
引用なし
パスワード
   Selection.Height = 任意のポイント値

で、良いのでは・・?
【17488】Re:図形の大きさを変更するには
質問  カド  - 04/8/31(火) 17:32 -
引用なし
パスワード
   回答ありがとうございます。

教えていただいたコードでは、図形の上が固定された状態で、下が伸びたり
縮んだりします。

これを下を固定して変化させたいのですが、可能でしょうか？
やりたいのは、棒グラフの棒を自分で書いた図形を用い、セルの数字に
応じて高さを変えることです。

ちなみに、最初に提示した倍率を指定する方法では、下が固定されます。
【17490】Re:図形の大きさを変更するには
回答  Kein  - 04/8/31(火) 17:46 -
引用なし
パスワード
   >下を固定して変化させたい
ならば

Dim x As Single

x = 任意のポイント値
With Selection
　 .Top = .Top - x
　 .Height = .Height + x
End With

ですね。
>棒グラフの棒を自分で書いた図形を用い、セルの数字に
>応じて高さを変える
意味がよく分かりませんが、グラフならグラフの機能だけを使ってやれませんか ?
図形を重ねるとずれたりするし、数が多いとファイルサイズも大きくなりますから
あまり良い方法とは思えませんが・・。
【17492】Re:図形の大きさを変更するには
お礼  カド  - 04/8/31(火) 18:50 -
引用なし
パスワード
   回答ありがとうございます。解決です。

>Dim x As Single
>
>x = 任意のポイント値
>With Selection
>　 .Top = .Top - x
>　 .Height = .Height + x
>End With
>
>ですね。

直接目的を達成することは出来ないわけですね。

>>棒グラフの棒を自分で書いた図形を用い、セルの数字に
・
・
>あまり良い方法とは思えませんが・・。

余計なことを書いてかえって混乱させてしまったようです。(^^ゞ
忘れてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11204 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free