Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11004 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【18705】ボブジェクト（シェープ）のボタン幅 CTree 04/10/6(水) 16:45 質問[未読]
【18707】Re:ボブジェクト（シェープ）のボタン幅 ichinose 04/10/6(水) 17:12 発言[未読]
【18708】オブジェクト（シェープ）のボタン幅 CTree 04/10/6(水) 17:42 質問[未読]
【18712】Re:オブジェクト（シェープ）のボタン幅 Kein 04/10/6(水) 20:32 回答[未読]
【18723】Re:オブジェクト（シェープ）のボタン幅 ichinose 04/10/7(木) 8:20 発言[未読]
【18705】ボブジェクト（シェープ）のボタン幅
質問  CTree  - 04/10/6(水) 16:45 -
引用なし
パスワード
   objShape = objsheet.Shapes.AddFormControl _
　　　　　　　　(Type:=xlButtonControl, _
　　　　　　　　Left:=.Left, Top:=.Top , Width:=.Width, Height:=.Height )

ボブジェクト（シェープ）のボタン幅をWidthで設定するときの単位は
何でしょうか？

ボブジェクト（シェープ）の幅にセルのサイズを合わせようをしたときに
指定の仕方がわかりません。

.ColumnWidth＝オブジェクトの幅
ではだめでした。

どのようにしたら良いでしょうか？

お教え願います。
【18707】Re:ボブジェクト（シェープ）のボタン幅
発言  ichinose  - 04/10/6(水) 17:12 -
引用なし
パスワード
   ▼CTree さん：
こんにちは。

>objShape = objsheet.Shapes.AddFormControl _
>　　　　　　　　(Type:=xlButtonControl, _
>　　　　　　　　Left:=.Left, Top:=.Top , Width:=.Width, Height:=.Height )
>
>ボブジェクト（シェープ）のボタン幅をWidthで設定するときの単位は
>何でしょうか？
こういうのボブジェクトって言うんですか？

アクティブシートのセルＡ１での例ですが、
Sub test()
　 With Range("a1")
　　　Set objShape = ActiveSheet.Shapes.AddFormControl _
　　　　　　　　(Type:=xlButtonControl, _
　　　　　　　　Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
　 End With
End Sub

こういう意味ですか？
【18708】オブジェクト（シェープ）のボタン幅
質問  CTree  - 04/10/6(水) 17:42 -
引用なし
パスワード
   失礼しました。

With objsheet.cells(1,1)
　　　　objShape = objsheet.Shapes.AddFormControl _
　　　　　　　　　　　　(Type:=xlButtonControl, _
　　　　　　　　　　　　Left:=.Left, Top:=.Top , Width:=.Width, Height:=.Height )
End With
オブジェクト（シェープ）のボタン幅をWidthで設定するときの単位は
何でしょうか？

オブジェクト（シェープ）の幅にセルのサイズを合わせようをしたときに
指定の仕方がわかりません。

.ColumnWidth＝オブジェクトの幅
ではだめでした。

どのようにしたら良いでしょうか？

お教え願います。
【18712】Re:オブジェクト（シェープ）のボタン幅
回答  Kein  - 04/10/6(水) 20:32 -
引用なし
パスワード
   Width はポイント単位で指定します。列幅を表す ColumnWidth は、ポイント値では
ありません。標準フォントで入力したときの、表示できる文字数です。
だからセルの Width を取得しないといけません。

With objsheet.Cells(1, 1)
　 objsheet.Buttons.Add .Left, .Top, .Width, .Height
End With

てな感じ。
【18723】Re:オブジェクト（シェープ）のボタン幅
発言  ichinose  - 04/10/7(木) 8:20 -
引用なし
パスワード
   Kein さん、CTreeさん、おはようございます。


>Width はポイント単位で指定します。列幅を表す ColumnWidth は、ポイント値では
>ありません。標準フォントで入力したときの、表示できる文字数です。
>だからセルの Width を取得しないといけません。
結局、↑が結論みたいですね！！

以下のサイトにセルの大きさや画素について記述されていますから、
参考にして下さい。

http://hp.vector.co.jp/authors/VA016119/sizemmqa.html#columnwidth
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11004 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free