ç¨vbaå¯ä»¥å®ç°ã
举ä¾è¯´æãä¾å¦æè¡¨æ ¼å¦å¾ï¼
第ä¸æ¥ï¼ç¹å»å¼åå·¥å ·-visual basicãå¦å¾ï¼
第äºæ¥ï¼å¨å½åå·¥ä½è¡¨ä¸åå ¥ä»£ç å¦ä¸ï¼
Sub æ¹éä¿®æ¹ææ¬æ¡()
Const æ¿æ¢ææ¬ = "ä¿®æ¹åææ¬20170620"
For Each mywb In ActiveSheet.Shapes
mywb.TextFrame2.TextRange.Text = æ¿æ¢ææ¬
Next mywb
End Sub
第ä¸æ¥ï¼è¿è¡è¯¥ä»£ç ãå¦å¾ï¼
è¿è¡åç»æå¦å¾ï¼