- ©«¤l
- 93
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- Office 2010 X86
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-3
- ³Ì«áµn¿ý
- 2020-12-3
|
¦^´_ 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- chartname = Trim(Replace(.Name, .Name, ""))
- End With
-
-
- Sheets("¤u§@ªí1").Shapes(chartname).Left = Cells(xRow, yCol).Left ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
- Sheets("¤u§@ªí1").Shapes(chartname).Top = Cells(xRow, yCol).Top
-
- Range("A1").Select
- End Sub
½Æ»s¥N½X |
|