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

[µo°Ý] K ½uªÑ²¼¹Ï¦p¦ó¯à»P¥D¤O¡B´²¤á¡B¤Î¦¨¥æ¶q½u¦@¦s¡H

¦^´_ 40# ya0325
Check E-Mail.

TOP

¦^´_ 1# c_c_lai


    ½Ð±Ð¤@¤U
   §Ú§â¨ä¤¤»yªk§ï¦¨  with Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1").Chart
¦ýÁÙ¬O­n¿ï¾Ü¹Ïªí¤~¥i¥H¶]
¯àÅý¥¨¶°¦Û°Ê­I«áRUN¶Ü ¤£»Ý­n¥h¿ï¨ú¹Ïªí


ªÑ²¼¹Ïªí2.rar (23.18 KB)

TOP

¦^´_  c_c_lai


    ½Ð±Ð¤@¤U
   §Ú§â¨ä¤¤»yªk§ï¦¨  with Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1") ...
seemee µoªí©ó 2013-8-20 17:47

¦pªG§ï¦¨  with Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1") .Chart¡A½Ð±N chartname ²¾°Ê¦ì¸m¡A¨Ã¥[¥H­×§ï ActiveChart.Name -> .Name.
§_«h°õ¦æ·|¦³¿ù»~°T®§¡C
  1.         text = "ªÑ²¼¹Ï K ½u¡B¥D¤O¡B´²¤á¡B»P¦¨¥æ¶q"
  2.         
  3.         .SetElement (msoElementChartTitleCenteredOverlay)
  4.         .ChartTitle.text = text
  5.         .ChartTitle.Format.TextFrame2.TextRange.Font.Size = 14
  6.         .Legend.Position = xlCorner                         ' ±N¹Ïªí¹Ï¥Ü±q¹Ïªí³Ì¤U¤è½Õ¾ã¨ì¹Ïªí¤§¥k¤W¨¤¦ì¸m
  7.         chartname = Trim(Replace(.Name, .Name, ""))
  8.     End With
  9.    
  10.     ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
  11.     ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
  12.    
  13.     Range("A1").Select
  14. End Sub
½Æ»s¥N½X
§A´£¤Îªº°ÝÃD¬O¥i¥H°µ¨ìªº¡A¦ý¶·¥t¥~¥[¤W¤@¨Çµ{¦¡½X¥h°ÊºA¦a³B²z»PºÞ²z¶×¤J¤§¸ê®Æ¿ý¡C

TOP

¦^´_ 43# c_c_lai


    ¤£¿f§A»¡  «Ü¦h»yªk³£°Å°Å¶K¶Kªº «Ü¦h»yªk ¬Ý¤£¤ÓÀ´
   §Ú·Ó§A»¡ªº§âchartname §ï¦ì¸m¤F..
¦ý¬O¹Ïªí¦ì¸m ¤£·|°ÊA
©ó¬O§Ú§ï¤F³Ì«á¨â¦æ  ÁÙ¬O¤£·|°Ê  ³Â·ÐÀ°§Ú¬Ý¤@¤U
  1.         chartname = Trim(Replace(.Name, .Name, ""))
  2.     End With
  3.    
  4.    
  5.     Sheets("¤u§@ªí1").Shapes(chartname).Left = Cells(xRow, yCol).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
  6.     Sheets("¤u§@ªí1").Shapes(chartname).Top = Cells(xRow, yCol).Top
  7.    
  8.     Range("A1").Select
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 43# c_c_lai

°Ê¤F°Ê¤F
Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1").Left  = Cells(xRow, yCol).Left   
§ï¦¨³o¼Ë´N¥i¥H°Ê¤F..

   ÁÂÁ«e½ú«ü±Ð

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-8-21 07:56 ½s¿è

¦^´_ 45# seemee
¥H¥Ø«e¥»Àɮתºµ{¦¡½X¤º®e¨Ó½×¡G
  1.     ActiveSheet.ChartObjects("¹Ïªí 1").Left = Cells(xRow, yCol).Left
  2.     ActiveSheet.ChartObjects("¹Ïªí 1").Top = Cells(xRow, yCol).Top
½Æ»s¥N½X
ActiveSheet ªº«e´£¤U¡A¸Ó¥Ø«e§@¥Î (Active) ¤§ WorkSheet ¥²¶·¬° "¤u§@ªí1"¡A
¦pªG§A¤Á´«¨ì "¤u§@ªí2" ©ÎªÌ¬O "¤u§@ªí3"¡A¦A¨Ó°õ¦æ drawCharts()¡A«h·|¦³¡G
          °õ¦æ¶¥¬q¿ù»~ '5'
          µ{§Ç©I¥s©Î¤Þ¼Æ¤£¥¿½T
¿ù»~°T®§¡C ©Ò¥H¦¹³B­×§ï¦¨¡G
  1.     Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1").Left = Cells(xRow, yCol).Left
  2.     Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1").Top = Cells(xRow, yCol).Top
½Æ»s¥N½X
©ú½T¤§«ü©w°õ¦æªº¤u§@ªí³æ¡A«h¬O¥¿½Tªº¦Ò¶q¡A®¥³ß§A¥\¤O¤S¼Wªø¤F¡C

TOP

c_c_lai ¤j¤j
«Ü´ÎªºÀɮסA¥i¥H¤À¨É¨Ó¬ã¨s¶Ü¡A¤p¾Ç¥Í¡AÁÂÁÂ
[email protected]

TOP

¦^´_ 47# wufonna
Check E-Mail.

TOP

¦^´_ 46# c_c_lai


    ·s°ÝÃD¤S¨Ó¤F.
   .Legend.Position = xlCorner                         ' ±N¹Ïªí¹Ï¥Ü±q¹Ïªí³Ì¤U¤è½Õ¾ã¨ì¹Ïªí¤§¥k¤W¨¤¦ì¸m

   xlCorner        §Ú§ä¤£¨ì³o­Ó°Ñ¼Æ¬O±q­þ¸Ì¨Óªº
  §ä¨ì³o­Ó  
   xlLegendPositionBottom -4107 ¹Ïªí¤U¤è
xlLegendPositionCorner 2 ¦ì©ó¹Ïªí®Ø½uªº¥k¤W¨¤
xlLegendPositionCustom -4161 ¦Û­q¦ì¸m
xlLegendPositionLeft -4131 ¹Ïªí¥ªÃä
xlLegendPositionRight -4152 ¹Ïªí¥kÃä
xlLegendPositionTop -4160 ¹Ïªí¤W¤è

§â xlCorner §ï¦¨¼Æ¦r(-4152) ¤§Ãþªº¦ì¸m´N¥i¥H§ïÅÜ  ¦ýxlCorner¬O±q­þ¸Ì±oª¾ªº

¦A¦h°Ý¤@­Ó°ÝÃD
§Ú¬Ý§Aªº ¼Æ¾Ú¬O¤G¤Q¬íºI¨ú¤@¦¸ À³¸Ó¬O¥ÎDDE§a?
½Ð°Ý§A¤@¦¸ºI¨ú¦h¤Ö®æªº¼Æ¾Ú  ·|¤£·|¦³©µ¿ðªº°ÝÃD?
§Ú¥Î³Í°ò¤j¤T¤¸ ºI¨ú 24X300 ­Ó¼Æ¾Ú  ¦n¹³¤£¬O«Ü¶¶ ¦³¤°»ò¦n«Øij©O?

TOP

ÁÂÁÂ c_c_lai  ¤j¤j ^_^

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD