Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29315 / 76732

←次へ　｜　前へ→


	【52699】Re:カラーパレットの使用方法

ichinose - 07/11/26(月) 21:34 -


	引用なし

	パスワード

こんばんは。

色に関しては、本気でやる場合は、

www.loadsystem.net/api/lsapi3.txt

の

Public Function Y_GetColorDialog(ByRef color As Long) As Long

'***********************************************************
'機能 : 「色指定」ダイアログを表示する
'戻り値:　1:色が選択された　0:[キャンセル]ボタンを押された
'　　　　　引数colorに選択された色コードをセットします
'***********************************************************
この辺りを使います（ＡＰＩです）。

簡単に済ませたい場合は、
nyama.jpn.org/otto/xlstip.shtml#7
これですね

例

Sub Test()
If Application.Dialogs(xlDialogEditColor).Show(1) Then
　 Range("a1").Interior.ColorIndex = 1
　 End If
End Sub

大抵は、↑この簡単な方かな！！

2 hits

▼

【52681】カラーパレットの使用方法 美貴 07/11/26(月) 11:45