EXCEL オブジェクト

質問

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

回答No.2

mitarashi

リアルタイムに行う方法は思いつきませんが、一括処理で良ければ下記でどうでしょうか。名前の付け方はエクセルお仕着せのままになっている事を前提にしています。ラインと、コネクタだけを対象にしているつもりです。
図形のあるシートのシートモジュールに記述してください。ボタンに登録すると良いでしょう。
また、当方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

お礼

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

回答No.1

noname#99913

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