[µo°Ý] µLªk¨ú±o scatter plot ªºvalue

swatt

½Ð±Ð¦U¦ì¤j®v¡A
¥Ø«eªí®æ¤º¤w¸gµe¦n¤@­Ó scatter plot¡A
·Q¥Î¥H¤U»yªk­n¨ú±o scatter plot ªºvalue¡A«o¥X²{¿ù»~¡A
¥Îwatchµøµ¡¬d¬Ýcht.SeriesCollection(1).Values ¬O¦³­Èªº¡A¬°¦ódebug.print cht.SeriesCollection(1).Values(2) ³o¤@¥y·|¿ù»~?


Sub get_scatter_point_value()

    Dim cht As Chart, pt As Point

    Set cht = ActiveSheet.ChartObjects(1).Chart
   
    Debug.Print cht.SeriesCollection(1).Values(2)
   
End Sub

¤U¸ü (137.54 KB)

2022-5-27 21:48

singo1232001

¦^´_ 1# swatt


    ¨ä¹ê¤£¤ÓÀ´­ì²z

¥Ø«e¦³­Ó¤èªk¯à®³¥X¨Ó
    ar = cht.SeriesCollection(1).Values
    Debug.Print ar(2)

swatt

¦^´_ 2# singo1232001

Hi singo1232001
³o½T¹ê¬O¤@­ÓÅܳqªº¤èªk¡A·PÁ§AªºÀ°¦£~

quickfixer

§Ú¥H«e°Ý01ªºs¤j
¥L«Øij§Ú¦pªG¥u¬O¨ú³æÂI,¥i¥Î³o2ºØ¤è¦¡,§A°Ñ¦Ò¤@¤U
²Ä¤@ºØ,©ñ¦b§Aµ{¦¡½X¤º
WorksheetFunction.Index(cht.SeriesCollection(1).Values,¦ì¸m)
§Aªº´N¬O1~5
Debug.Print WorksheetFunction.Index(cht.SeriesCollection(1).Values,2)
¤£dim¡Bset,¥Î¤@¦æ
Debug.print WorksheetFunction.Index(ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values,1)

²Ä¤GºØ
Sub test()
    Dim cht As Series
    Set cht = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
    Debug.Print cht.Values(1)
End Sub

swatt

¦^´_ 4# quickfixer

Hi quickfixer,
ÁÂÁ§A´£¨Ñªº¿ìªk¡A¤S¾Ç¨ì¤F¤£¤Ö¡AVBAùØÀY¯uªº¦³¤£¤Öªº¬Ü¬Ü¨¤¨¤~