|
おはようございます。
昨日Keinさんに教えてもらった通りに手直ししたら、
きちんと表が描画されました。
とっても助かりました!ありがとうございましたm(_ _)m
For i = 1 To 33
Debug.Print Workbooks("book_name1").Sheets("設定シート") _
.DrawingObjects(i).TopLeftCell.Address(RowAbsolute:=False) & " : " & i
Next i
' /* 記号の情報をテーブル,シートに設定する */
Windows("book_name2").Activate
Sheets("表").Select
Dim IndAry As Variant
IndAry = Array(19, 20, 21, 22, 13, 14, 23, 26, 25, 24)
For i = 1 To 10
Set cp = Workbooks("book_name1").Sheets("設定シート").DrawingObjects(IndAry(i - 1))
cp.Copy
Cells(i, 1).Select
ActiveSheet.Paste
Next
|
|