resize a label

[newapa]

Hi
i'm trying to resize a label so the label get exactly same size as plot area. but it get bigger than it is.

sub test()
    Dim sPoint As Point
    Dim ch As ChartObject
   
    Set ch = ActiveChart.Parent
    Set sPoint = Selection

    With Label1
        .Left = ch.Chart.PlotArea.Left
        .Top = ch.Chart.PlotArea.Top
        .Height = ch.Chart.PlotArea.Height
        .Width = ch.Chart.PlotArea.Width
    End With

end sub

don't know why or what i'm missing?

thx in advance

 

[vds1]

On the chart > Right Click > Format Chart Area > Properties > Choose dont move or size with cells

On the Label > Right Click > Format Control > Properties > Choose dont move or size with cells

Does that help you ?

 

[newapa]

Thx!

i hasn't test it yet. it just working now. must be bug or somthing. but thx anyway. i will try it 2