![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセル初心者です。
以下のマクロを教えて頂きました。
セルに入力する数値は他の計算式から数値を割り出しています。
このマクロをセンチで入力して、実行する事は可能でしょうか。
その方法がありましたら、教えてください。
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Shapes.Range(Array("Group 1"))
.Top = 100
.Left = 100
.Height = ActiveSheet.Range("A2").Value
.Width = ActiveSheet.Range("A3").Value
End With
End Sub
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
移動?
こちら↓の質問の続きですよね?
http://oshiete.goo.ne.jp/qa/7753279.html
グループ化したオブジェクトの拡大縮小なのでは?
私はExcelおよびマクロについては得意ではないので、無駄な
書き方になっているかもしれませんが。
図形のサイズはポイントなので、マクロで単位をセンチにする
場合は、Application.CentimetersToPoints()が必要で、
これを追加することで、対応できると思います。
http://excelfactory.net/excelboard/excelvba/exce …
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h As Double
Dim w As Double
h = ActiveSheet.Range("A2").Value
w = ActiveSheet.Range("A3").Value
h = Application.CentimetersToPoints(h)
w = Application.CentimetersToPoints(w)
With ActiveSheet.Shapes.Range(Array("Group 1"))
.Top = 100
.Left = 100
.Height = h
.Width = w
End With
End Sub
ご回答を有難うございました。
無事、マクロを実行することが出来ました。
センチをポイントに換算してから、入力すれば良いと思いましたが、
センチでの入力が出来れば、いっそう効率的と生意気にも思ってしまいました。
ご指導を頂けて、感謝です。有難うございました。
これからも、よろしくお願いします。
No.3
- 回答日時:
.Top = 5*72/2.54
.Left = 10*72/2.54
.Height = ActiveSheet.Range("A2").Value*72/2.54
.Width = ActiveSheet.Range("A3").Value*72/2.54
だから、
.Top = 5*28.35
.Left = 10*28.35
.Height = ActiveSheet.Range("A2").Value*28.35
.Width = ActiveSheet.Range("A3").Value*28.35
入力したセンチの数値に*28.35を加えればよいのですね。
目からうろこです。
生意気にもエクセルで手仕事の計算などをしていますので、
教えて頂くことが出来て、感謝するばかりです。
手取り足取りのご指導を再度お礼申し上げます。有難うございました。
No.2
- 回答日時:
.Top = Application.CentimetersToPoints(5)
.Left = Application.CentimetersToPoints(10)
.Height = Application.CentimetersToPoints(ActiveSheet.Range("A1").Value)
.Width = Application.CentimetersToPoints(ActiveSheet.Range("A2").Value)
okormazd様
昨日に引き続き、ご回答を有難うございました。
センチで入力が無事に動作いたしました。
重ねて感謝申し上げます。有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/04 10:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
Excel VBAからAccessマクロを実...
-
一つのTeratermのマクロで複数...
-
エクセルに張り付けた写真のフ...
-
エクセル マクロ 指定日の指定...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
組んだマクロをメールで送る
-
ExcelのVBA。public変数の値が...
-
wordを起動した際に特定のペー...
-
エクセルで別のセルにあるふり...
-
EXCELのVBAでRange("A1:C4")を...
-
ダブルクリックで貼り付けた画...
-
ExcelVBA 図形をクリックした...
-
マクロ実行時、ユーザーフォー...
-
エクセルのマクロをセルの値に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
2つのマクロでチェックボックス...
-
マクロ実行時、ユーザーフォー...
-
【マクロ】1つのマクロの中に...
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
wordを起動した際に特定のペー...
おすすめ情報