こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

EXCEL オブジェクト 

EXCELで工程表を作成してます。オブジェクトの直線や直線コネクタを描く際、特定のセル上の部分のみ自動的に破線に替えるような設定はできるのでしょうか。

投稿日時 - 2009-06-26 16:16:01

QNo.5076384

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

リアルタイムに行う方法は思いつきませんが、一括処理で良ければ下記でどうでしょうか。名前の付け方はエクセルお仕着せのままになっている事を前提にしています。ラインと、コネクタだけを対象にしているつもりです。
図形のあるシートのシートモジュールに記述してください。ボタンに登録すると良いでしょう。
また、当方XL2000ですので、特にXL2007については動くかどうか不明です。
Sub test()
Dim shp As Shape
Const dashAreaRow As Long = 5 '5行目より上を波線に変更

For Each shp In Me.Shapes
If shp.BottomRightCell.Row <= dashAreaRow Then
If shp.Name Like "Line*" Then shp.Line.DashStyle = msoLineDash
If shp.Connector = msoTrue Then shp.Line.DashStyle = msoLineDash
End If
Next shp
End Sub

投稿日時 - 2009-06-27 20:40:15

お礼

私には難しそうですが、やってみます。ありがとうございました。

投稿日時 - 2009-07-03 11:19:04

ANo.1

関数とか設定では無理だと思います。マクロを使えば出来るかもしれませんが、すべてのオブジェクトにマクロを登録することになり、非常に手間がかかります。

投稿日時 - 2009-06-26 17:37:44

あなたにオススメの質問