午後わてんのブログ

ベランダ菜園とWindows用アプリ作成(WPFとC#)

午後のパレットその39、エクセル2007より昔のパレットの配色を登録、見出し付きテキストボックスを最寄りセルへ移動

エクセルアドイン_午後のパレット #Windows
前回
の続き
 
 
 
イメージ 1
午後のパレットのマイパレットを5から10枚に増やした
 
イメージ 2
エクセル2007より前のエクセルのパレットを再現したものを
マイパレット9に登録してみた
懐かしい色の配置だなあと思っていたら
 

f:id:gogowaten:20191022102225p:plain

2007でもあって、コメントの書式設定だと出てくるみたい
 
Office TANAKA - グラフ[ColorIndexプロパティと色パレットについて]
ここを見たら色の番号と位置が載っていたので
イメージ 4
セルに番号を入れて、番号を入れたセルを選択してから
Sub oldcolor()
    Dim R As Range
    For Each R In Selection
        R.Interior.ColorIndex = R.Value        
    Next
End Sub
これを実行すると
イメージ 5
こうなって
午後のパレットとは行列数が違うから
 

f:id:gogowaten:20191022102240p:plain

一番下の行を右に移動してからマイパレットに登録した
登録方法は
エクセル2007アドイン作成その25、HSLのHとSを固定してLを変化させてグレースケールのYを使って色作成 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
エクセル2007アドイン、セルの塗りつぶしとフォントのパレット作ってみた、その23、罫線も追加 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
 
 

午後のツール(午後の道具)
イメージ 7
赤い四角が増えたところ
 
見出し付きテキストボックスを作成するとき
イメージ 8
フォントカラーの本文の自動にチェックを入れて作成すると
本文のフォントカラーが
背景色の明るさ(輝度)によって自動調整された色で作成される
RGB表現だとRGB(128,128,128)からRGB(0,0,0)の間
イメージ 9
あんまり変わらないなｗでも気分が大切
 
 
 
最寄りセルへ移動
イメージ 10
こんな状態のとき
 
イメージ 14
移動させたい図形を選択してから
最寄りセルへ移動ボタンを押すと
 
イメージ 11
こうなる
見出し付きテキストボックスの左上の位置から一番近いセルの左上に
ピッタリになる位置にテキストボックスを移動させる
 
 
高さをセルに合わせるボタンは
イメージ 13
見出し付きテキストボックスを選択してから押すと
 
イメージ 12
こうなるボタン
最寄りセルへ移動して、
さらにテキストボックスの下側を一番近くのセルまで広げて
文字の縦配置を中央にする
うーん、これは最寄りセルには移動させないほうがいいかな

f:id:gogowaten:20191022102339p:plain

ダウンロード
ファイル名：午後のパレット_20150706.xlam