ExcelVBAについて質問します。

質問

ExcelVBAについて質問します。

「コントロールツールボックス」に新規追加について

追加の方法は分かるのですが
直線や斜線は何を追加すればよいかが分かりません。

・直線はフレームコントロールで幅を調整すれば何とかなるが、斜線は出来ません。

回答No.2

mitarashi · ベストアンサー

UserFormに斜線を引きたいという趣旨でしょうか？
実用性はどうだか分かりませんが、
http://okwave.jp/qa/q4834001.html
の#3のコードの、選択されているのがセルかどうかの判断を外します。
'If TypeName(Selection) <> "Range" Then Exit Sub
シートの上に斜線を引いて選択状態にします。
上記コードを実行すると、斜線だけのemfファイルが出来ます。
これを、UserFormのプロパティのPictureに設定するか、LoadPictureでコードで設定してください。
寸法合わせは生成されるemf、Userformの寸法について調べて真面目に対処するか、面倒なので試行錯誤でやるかして下さい。
斜線に限らず、Excelのシート上に置いたオートシェープでも、画像でも、それらの組み合わせでも同様に可能です。
なお、CreatePictureFromCB()関数は、下記にありました。
http://web.archive.org/web/20040528030228/http://www2.moug.net/app/bbs/message.php?cat=exvba&id=20040504-000002

補足

回答ありがとうございます。

＞これを、UserFormのプロパティのPictureに設定するか、LoadPictureでコードで設定してくださ＞＞い。

この手の手法でしょうか？

質問の背景
Accessでフオームを作成する時、「ツールボックス」に
「直線」と「四角形」の機能が有り「直線」は斜線にも対応出来ました。
今、AccessをExcelに移植していて直線コントロール機能が標準で表示されていない事に
気が付きました。

Excelの場合も追加すれば可能かと思い質問しています。

回答No.1

hoiho11

それワタシも以前考えたのですが　無理でしょうね

ワタシの場合　仕方なく　画像挿入で対応しました
斜め線を透過画像として貼りつけしました