卡提諾王國's Archiver

lite_wan 發表於 2009-8-24 00:33

EXCELL2007錄製巨集時錄不到操作繪圖物件的程式碼?()

[i=s] 本帖最後由 mayday03225 於 2009-9-8 09:02 編輯 [/i]

請教有那位大大在 EXCELL2007中,錄製巨集時可以錄到有關繪圖物件(SHAPE)的程式碼?
在以往EXCELL XP 或2003錄巨集時,可以錄製到操作繪圖物件的程式碼,如
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 87#, 81#, 79.8, 66#). Select '繪一矩形
    Selection.ShapeRange.Fill.Visible = msoFalse '無填滿
    Selection.ShapeRange.Line.Visible = msoFalse '線條無匡線
      ActiveSheet.Shapes("Line 1").Select
    ActiveSheet.Shapes.Range(Array("Line 1", "Line 2")).Select '選2個線
    Selection.ShapeRange.Group.Select '設為群組
以上的程式碼在EXCELL2007中都錄不到(巨集中程式碼一片空白)
只好在excell2003中錄製再copy來用
不知如何解決?有那位大大指點迷津?感激不盡!

頁: [1]

Powered by Discuz! Archiver 7.0.0  © 2001-2009 Comsenz Inc.