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

[µo°Ý] ¹Ïªí chart ¤ºÁͶսuªº¸ê®ÆÂI¤§ Top Left ®y¼Ð VBA¦p¦ó¨ú±o

[µo°Ý] ¹Ïªí chart ¤ºÁͶսuªº¸ê®ÆÂI¤§ Top Left ®y¼Ð VBA¦p¦ó¨ú±o

·q½Ð½å¹F«ü¾É¡G
¤U¦C·s¥[¤@ÁͶսu¡A¸ê®ÆÂI¦b Array ¤º¡A°õ¦æµeÁͶսu«á¦p¦ó¨ú±o­Ó¸ê®ÆÂIªº top left ®y¼Ð­È?
ÁÂÁÂ

  ActiveChart.SeriesCollection.NewSeries.Select
        With Selection
            .Name = "=""AAAA"""
            .XValues = Array(0.12,0.13, 0.14,0.15)     'x_category
            .Values = Array(2.2,2.1,1.8,1.5)                   'y_value
            .MarkerStyle = -4142
           With Selection.Format.Line
               .Visible = msoTrue
               .ForeColor.RGB = RGB(255, 0, 0)
               .Transparency = 0
               .Weight = 3#
           End With
        End With

¦^´_ 12# fei6999


    ¤£¤Ó¯à¤F¸Ñ§Aªº·N«ä¡A³Ì¦n¯à¶K¤@±i¹Ï»¡©ú
¤@¯ë¬OÁͶչϰµ§¹¤F¥H«á¦AÅܧóÄÝ©Ê¡A¥Î¤â°Ê©ÎVBAµeªº´N¥ÎVBAÅܧó¥¦
¬O§_¯àµe¹Ï«e¥ýÃö±¼¥¦¡A§Ú¤£ª¾¹D

TOP

¥»©«³Ì«á¥Ñ fei6999 ©ó 2016-1-3 12:15 ½s¿è
¦^´_  Scott090

¯S©w¸ê®ÆÂI(0.15,1.5) ªº Top, Left ¦p¦ó¨ú±o, ¥\¤O¤£°÷À°¤£¤W¦£.
¦p¹Ï: ·Æ¹«²¾¨ì¸ê®Æ ...
GBKEE µoªí©ó 2014-8-17 07:27


½Ð°Ýª©¥D¼Ð¥Ü¬õ¦â®Ø¬OÅã¥Ü¹Ïªí¼Æ¦C¤Î¸ê®ÆÂI,³o­Ó¥\¯à¥i¥HÃö±¼¤£Åý¥¦Åã¥Ü¶Ü?

TOP

¦^´_ 10# GBKEE

§Q¥Î¸ê®Æ¼ÐÅÒ¨ÓÅã¥Ü¨ä¥L¤å¦r¡A¹ê¦b°ª©ú
¾Ç²ß¤F¡A°ÝÃD¤]¸Ñ¨M¤F
¨¯­W¤F¤j®v

ÁÂÁÂ

TOP

¦^´_ 9# Scott090
2003ª©Points¨S¦³³o¨ÇÄÝ©Ê
  1.   Ytop = C.SeriesCollection(1).Points(i).Top      '¸ê®ÆÂI i ªº Top ­È
  2. XLeft = C.SeriesCollection(1).Points(i).Left    '¸ê®ÆÂI i ªº left ­È
½Æ»s¥N½X
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim P As Point, C As Chart, i As Integer
  3.     Set C = ActiveSheet.ChartObjects(1).Chart  '«ü©w¹Ïªí
  4.     i = 2   '«ü©w¼Æ­ÈÂI
  5.     With C.SeriesCollection(1)
  6.         .HasDataLabels = True
  7.         .DataLabels.Delete
  8.     End With

  9.     Set P = C.SeriesCollection(1).Points(i)
  10.     P.ApplyDataLabels xlDataLabelsShowLabel, ShowValue:=True
  11.     With P.DataLabel
  12.         .Interior.ColorIndex = 35
  13.         .Characters.Text = "ªþ¥[»¡©ú1:  " & vbLf & .Characters.Text
  14.     End With
  15. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ Scott090 ©ó 2014-8-18 21:14 ½s¿è

¦^´_ 8# GBKEE


    «D±`·P®¦¤j®v¼ö±¡ªº«ü¾É
¥Ñ PlotArea µøµ¡ª½±µ­pºâ¸ê®ÆÂI¦ì¸m¤@©w¬O«D±`ªºÃ­°·ªº°µªk

¥t¡A¦³§ä¨ì¸ê®ÆÂIªºÄÝ©Ê Points().top Points().left¡A¨äí°·©Ê¦p¦ó¤£±o¦Óª¾¡A¤jÁx¦C¥X¨Óµ¹°Ñ¦Ò¡G
  1. Sub Ex2()
  2.     Dim X(), Y(), XLeft As Single, Ytop As Single, i As Integer
  3.     Dim P As PlotArea, C As Chart, S As Shapes
  4.    
  5.     Set C = ActiveSheet.ChartObjects(1).Chart  '«ü©w¹Ïªí
  6.     X = C.SeriesCollection(1).XValues 'X¶b¼Æ­È
  7.     Y = C.SeriesCollection(1).Values  'Y¶b¼Æ­È
  8.     i = 3   '«ü©w¼Æ­ÈÂI.
  9.    
  10.     Ytop = C.SeriesCollection(1).Points(i).Top      '¸ê®ÆÂI i ªº Top ­È
  11.     XLeft = C.SeriesCollection(1).Points(i).Left    '¸ê®ÆÂI i ªº left ­È
  12.    
  13.     With C.Shapes.AddShape(msoShapeRectangle, Left:=XLeft, Top:=Ytop, Width:=100, Height:=50)
  14.         .TextFrame.Characters.Text = "ªþ¥[»¡©ú1:" & Chr(10) & "X: " & X(i) & Space(5) & "Y: " & Y(i)
  15.     End With
  16.    
  17.     Range("E10").Select
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# Scott090
À°§A½m¤@¤U¥\,¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim X(), Y(), XLeft As Single, Ytop As Single, i As Integer
  4.     Dim P As PlotArea, C As Chart, S As Shapes
  5.     Set C = ActiveSheet.ChartObjects(1).Chart  '«ü©w¹Ïªí
  6.     Set P = C.PlotArea
  7.     X = C.SeriesCollection(1).XValues 'X¶b¼Æ­È
  8.     Y = C.SeriesCollection(1).Values  'Y¶b¼Æ­È
  9.     i = 3   '«ü©w¼Æ­ÈÂI.
  10.     With C.Axes(1) 'xlCategory  'X¶b
  11.          XLeft = P.InsideWidth / (.MaximumScale - .MinimumScale)
  12.          'ÂI¼Æ¶¡¶Zªº¼e«×
  13.     End With
  14.     With C.Axes(2)   'xlValue  'Y¶b
  15.         Ytop = P.InsideHeight / (.MaximumScale - .MinimumScale)
  16.         ''ÂI¼Æ¶¡¶Zªº°ª«×
  17.     End With
  18.     XLeft = P.InsideLeft + (XLeft * X(i))
  19.     Ytop = P.InsideTop + P.InsideHeight - (Ytop * Y(i))
  20.     Set S = C.Shapes
  21.     If S.Count <> 0 Then
  22.         C.Parent.Activate
  23.         S.SelectAll
  24.         Selection.Delete
  25.     End If
  26.     With C.Shapes.AddShape(msoShapeRectangle, Left:=XLeft, Top:=Ytop, Width:=100, Height:=50)
  27.         .TextFrame.Characters.Text = "ªþ¥[»¡©ú1:" & Chr(10) & "X: " & X(i) & Space(5) & "Y: " & Y(i)
  28.     End With
  29.     C.Parent.Parent.Activate
  30. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ÁÂÁ¤j®v¼ö¤ß¦a¦^À³

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-17 07:28 ½s¿è

¦^´_ 5# Scott090

¯S©w¸ê®ÆÂI(0.15,1.5) ªº Top, Left ¦p¦ó¨ú±o, ¥\¤O¤£°÷À°¤£¤W¦£.
¦p¹Ï: ·Æ¹«²¾¨ì¸ê®ÆÂI¥iÅã¥Ü¥X¸ê®ÆÂIªº¼Æ­È,¬°¦óÁÙ­n¥[¤W»¡©ú.


   
¥¼©R¦W.JPG
2014-8-17 07:23
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# Scott09
ªþ¥ó

Chart sample.rar (17.53 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD