ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð±Ð¦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

scatter.jpg (137.54 KB)

scatter.jpg

¦^´_ 2# singo1232001

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

TOP

¦^´_ 4# quickfixer

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

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD