• ベストアンサー

vbaマクロで、色の設定ダイアログ画面について

mitarashiの回答

  • ベストアンサー
  • mitarashi
  • ベストアンサー率59% (574/965)
回答No.1

ChooseColor APIで表示されるダイアログを、モーダル→モードレスに変更したいという意味なら、 ChooseColorにそういう選択肢は無さそうなので無理だと思います。外していたらすみません。 http://wisdom.sakura.ne.jp/system/winapi/common/common1.html 作成したカスタムカラーを保存するバージョンを回答した事があります。ご参考まで。 http://okwave.jp/qa/q8449398.html

6ass3eu6
質問者

補足

苦肉の策ですが、あるフォームをモーダル出力にしてから、 コントロール等で、ChooseColor画面を出力すれば、 モーダル画面の他は、Excel上、アクティブにする事が、 出来ないようです。

関連するQ&A

  • vbaで、オートシェイプ文字幅と間隔について

    動作環境 OS:Windows7(64Bit) Home Premium SP1 MS:Office Version2007 SP3 Excel図形内のテキスト編集で、マウスをドラッグしてテキストの領域を選択後、コンテキスト メニューから、フォント(F)-フォント(設定ダイアログ)画面-[文字幅と間隔]タブ上に、間隔と幅が、 あります(画像参照)。 テキスト設定した場合、vba上から文字間隔と幅を取得する方法が、知りたいです。 それと、カーニングもついでに、取得する方法が、知りたいです。 大体、目途は、付いています。 どなたか、ご指導願います。 ■現在、自分が、分かっている文字間隔と幅を取得するPG(URL参照) http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1188387871 下記の方法ですと、MsgBoxで、[文字間隔を広げる]設定値が取得されます。 For Each wkbWorksheets In ActiveWorkbook.Worksheets For Each wksShapes In wkbWorksheets.Shapes With wksShapes.TextFrame2.TextRange.Characters MsgBox .Font.Spacing End With Next wksShapes Next wkbWorksheets ※[標準]、[文字間隔をつめる]、[カーニング]で、vbaから設定値を取得するには?

  • 画面の色がおかしいです

    こんにちは。 突然画面の色が256色に固定されてしまいました。 画像やアイコンが荒くなってしまいました。 設定は[画面のプロパティ]→[設定]→[画面の色]:[最高(32ビット)]になっているのですが・・・ グラフィックドライバやBIOSの更新済みです。 ちなみに当方の環境は PC型番:Fijitsu FMVNX70JT OS:WindowsXP(SP2) です。 いろいろと試したのですが復旧しません。 こなったら再インストールしかないかなとも思っています。 よろしくお願いいたします。

  • vbaで、オートシェイプ文字列、下線色取得について

    動作環境 OS:Windows7(64Bit) Home Premium SP1 MS:Office Version2007 SP3 Excel図形内のテキストの編集で、マウスをドラッグしてテキストの領域を選択後、コンテキスト メニューから、フォント(F)-フォント(設定ダイアログ)画面-[フォント]タブ上に、下線の色が、 あります。 テキスト設定した場合、vba上から下線の色を取得する方法が、知りたいです。 大体、目途は、付いています。 どなたか、ご指導願います。 ■現在、自分が、分かっている下線の色を取得するPG 下記の方法ですと、全てエラーです。 For Each wkbWorksheets In ActiveWorkbook.Worksheets For Each wksShapes In wkbWorksheets.Shapes With wksShapes.TextFrame2.TextRange.Characters MsgBox .Font.UnderlineStyle.ColorIndex MsgBox .Font.UnderlineStyleColorIndex MsgBox .Font.Underline.ColorIndex MsgBox .Font.UnderlineColorIndex End With Next wksShapes Next wkbWorksheets

  • ExcelのVBAで、色の選択のダイアログ

    エクセルのVBAで、色の選択が出来るようにしたいと思っています。セルの書式のパターンのタグを選択した時の左側部分のみの画面を表示して、ユーザーに色を選択させて、戻り値を得ることって出来るのでしょうか?どなたか詳しい方いらっしゃいましたら教えてください。宜しくお願い致します。(出来れば、オプション-色-変更で出てくる色の設定も教えてください)

  • IE画面の背景色の設定

    お世話になります。 早速ですが、IE表示画面の背景色の設定について教えてください。 「インターネットオプション」ダイアログボックス→「全般」タブ→「色」ボタンをクリックする→ダイアログボックスで、「Windowsの色を使用する」チェックボックスをオンにしても、あるいは、このチェックボックスをオフにして、背景色を自分好みの色に設定しても、いずれの場合も画面の背景が白のままです。何故でしょうか?IEの背景色の設定はどこで行うでしょうか? どなたかお知恵を拝借したいのですが..... 当方のパソコン環境 OS:Windows XP Home Edition SP1適用済み メモリ:512MB CPU:IntelPentium4(2.4Ghz) よろしくお願い致します。

  • 「フォーカスのあるフィールドに色を付ける」vba

    帳票フォームの全てのコントロールに 条件付き書式で 「フォーカスのあるフィールドに色を付ける」を行いたいのですが コントロールが多すぎる為VBAでループさせたいのですがコードがわかりません。 http://www.tsware.jp/tips/tips_187.htm これをVBAで行いたいです。 VBAでの条件付き書式は Sub Sample() Dim Field As String Dim myFormName As String With Forms(myFormName).Controls(Field) With .FormatConditions .Delete With .Add(acExpression, , "[" & Field & "]=""あ""") .BackColor = 225 End With End With End With End Sub こんな感じで出来る事は知ってますが、 vbaで「フォーカスのあるフィールドに」と言う条件の付け方がわからないので教えてください。

  • オフィスごとに設定 VBE画面の色

    ツール→オプション→エディターの設定で、VBE画面の色を変えられますが エクセルの場合はこの色、 アクセスの場合はこの色と、オフィスごとに設定することは不可能ですか? オフィス2010です。

  • マルチ画面でゲーム

    OSはvista Home Premiumを使っていて17インチと20インチの画面でデュアルディスプレイをしています。 ネットゲームをしたいのですがフルスクリーンだとなぜか右側の画面にはみだしていてきれいに映りません。 そこで仕方なくウインドウモードでしているのですが、ウインドウモードでするには画面の設定で色を32ビットから16ビットにしなくてはできません。 しかし16ビットにするとせっかくのエアロが使えません。 なのでどうにかフルスクリーンにして片方の画面にきっちりおさめたいのですが、どうにかうまいことできないでしょうか・・・? (ちなみに試したゲームはFEZとTWです、両方同じくらいはみでます。)

  • 画面の設定

    画面の設定が8ビットに戻ってしまいます。32ビットに設定して適用してOKをしても、起動するたびに8ビットに戻ってしまいその都度、設定をしなおさなければなりません。どなたかわかる方教えて下さい。 OSはXP-SP2、モニターはDiamondcrysta RDT151LM です。

  • 画面の色設定で16ビットと32ビットでは何が違うの?

    画面のプロパティで、設定タブの画面の色のところで 中(16ビット),最高(32ビット) の2種類がありますが、どう違うのでしょうか。 切り換えて試してみましたが、壁紙など画像の表示は 特に変化したように見えません。