Is it possible to change line color by clicking on the it i.e. if I click on
a line its color should change to, say, red. Furthermore, is it possible to
click a line on one sheet and have some other line on another sheet to be
selected (as part of a group).

Thanks.

Hi

Paste this event code into the codesheet for the desired sheet. This will
change row color for the selected cell to red in the desired sheet and in
sheet3.

Dim PreviousRow As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If PreviousRow <> 0 Then
Rows(PreviousRow).Interior.ColorIndex = xlNone
Sheets("Sheet3").Rows(PreviousRow).Interior.ColorIndex = xlNone
End If
PreviousRow = Target.Row
Target.EntireRow.Interior.ColorIndex = 3
Sheets("Sheet3").Rows(Target.Row).Interior.ColorIndex = 3
End Sub

Hopes this helps

----
Per

"Farooq Sheri" <(E-Mail Removed)> skrev i meddelelsen
news:B513DCEA-2893-4472-B302-(E-Mail Removed)...
> Is it possible to change line color by clicking on the it i.e. if I click
> on
> a line its color should change to, say, red. Furthermore, is it possible
> to
> click a line on one sheet and have some other line on another sheet to be
> selected (as part of a group).
>
> Thanks.

Hi Jessen

I want to change color of line / select another line (drawn by using the
drawign tool). Your answer is about a cell. Can this be done for a line?

"Per Jessen" wrote:

> Hi
>
> Paste this event code into the codesheet for the desired sheet. This will
> change row color for the selected cell to red in the desired sheet and in
> sheet3.
>
> Dim PreviousRow As Integer
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If PreviousRow <> 0 Then
> Rows(PreviousRow).Interior.ColorIndex = xlNone
> Sheets("Sheet3").Rows(PreviousRow).Interior.ColorIndex = xlNone
> End If
> PreviousRow = Target.Row
> Target.EntireRow.Interior.ColorIndex = 3
> Sheets("Sheet3").Rows(Target.Row).Interior.ColorIndex = 3
> End Sub
>
> Hopes this helps
>
> ----
> Per
>
> "Farooq Sheri" <(E-Mail Removed)> skrev i meddelelsen
> news:B513DCEA-2893-4472-B302-(E-Mail Removed)...
> > Is it possible to change line color by clicking on the it i.e. if I click
> > on
> > a line its color should change to, say, red. Furthermore, is it possible
> > to
> > click a line on one sheet and have some other line on another sheet to be
> > selected (as part of a group).
> >
> > Thanks.
>
>

Dear Farooq

You can assign a macro and use the below code.

Set oShp = ActiveSheet.Shapes(1)
oShp.Line.ForeColor.SchemeColor = 2

If this post helps click Yes
---------------
Jacob Skaria