point and selection

[newapa]

Hi!
I'm trying to make that if the point is selected the label will show.
but it's not working. the object doesn't work.

it work when i have set spoint = selection.
but if i have it like that i will get type missmatch all the time.

sub test()
dim ch as chart
dim spoint as point
label1.visible = false

set ch = activechart.parent

if sPoint = Selection then
    label1.visible = true


    With Label1
        .Left = ch.Chart.PlotArea.Left
        .Top = ch.Chart.PlotArea.Top
        .Height = 20
        .Width = 20
    End With
end if
end sub

thx in advance

 

[Andrew Poulsom]

Instead of:

If sPoint = Selection Then

try:

If TypeName(Selection) = "Point" Then

 

[newapa]

ohhh!

big thx Andrew.
And thx agian

 

[newapa]

Hi andrew!

i got one more question. how can i check if the chart is selected. just now if i'm not select any chart it will complain.
i tryied it like this. but it doesn't work

if ch is nothing then
exit sub
else
do other code here.
end if

 

[Andrew Poulsom]

Try moving the line I posted up, so that the assignment of ch is inside the If ... End If construct.

 

[newapa]

i have tryied it and it doesn't work.

here the code

Dim sPoint As Point
    Dim ch As ChartObject
    Dim BtwTop As Long
    Dim BtwLeft As Long
       
    Set ch = ActiveChart.Parent
 
    Label1.Visible = False
   
    BtwTop = ch.Top + ch.Chart.PlotArea.Top
    BtwLeft = ch.Left + ch.Chart.PlotArea.Left
   
    If TypeName(Selection) = "Point" Then
       
        If ch Is Nothing Then
            MsgBox "hej då"
            Exit Sub
        Else
       
            With Label1
                .Visible = True
                .BringToFront
                .Left = BtwLeft
                .Top = BtwTop
                .Height = ch.Chart.PlotArea.Height
                .Width = ch.Chart.PlotArea.Width
            End With
        End If
    End If

 

[Andrew Poulsom]

You didn't do what I said. Try:

Sub test()
    Dim ch As ChartObject
    Dim BtwTop As Long
    Dim BtwLeft As Long
    If TypeName(Selection) = "Point" Then
        Set ch = ActiveChart.Parent
        Label1.Visible = False
        BtwTop = ch.Top + ch.Chart.PlotArea.Top
        BtwLeft = ch.Left + ch.Chart.PlotArea.Left
        With Label1
            .Visible = True
            .BringToFront
            .Left = BtwLeft
            .Top = BtwTop
            .Height = ch.Chart.PlotArea.Height
            .Width = ch.Chart.PlotArea.Width
        End With
    End If
End Sub

 

[newapa]

ohhh sorry!
i miss understod it. so i put the if ch is nothing in there insted of moving it.

thx agian andrew
big thx