|
ウッシさん、keinさん回答ありがとうございます。
質問下手ですみません。m(__)m
>>Access始めたばかりで解らないことだらけです。
>>ご指導お願いします。
>ExcelVBAの板なんですけど?
AccessからExcelに表を表示する
という処理を行っています。
Excel内で表を描画するvbaマクロ処理でエラーが出るので、
こちらで質問させていただきました。
>
>結局何が聞きたいのか分からないのですが?
Excel内で別シートに設定されている、描画情報を読み込んで、
表に描画するところの処理でエラーが出ています。
「WorksheetクラスのDrawingObjectsプロパティを取得できません。」
★エラーの発生している原因がよく解らないので、教えて下さい。
エラーの箇所のDrawingObjects(j)のjには"楕円 97"(設定シートのセルに書いてある)が入ってきます。
Dim Sheet1 As Worksheet
Dim i As Long
Dim j As Variant
Dim cp As Object
Windows(book_name1).Activate
Set Sheet1 = Sheets("設定シート")
' /* 線の情報をテーブルに設定する */
For i = 1 To 10
zukei_line(i).linetype = Sheet1.Cells(2 + i, 9).Value
zukei_line(i).borderline = Sheet1.Cells(2 + i, 10).Value
zukei_line(i).bordercolor = Sheet1.Cells(2 + i, 11).Value
zukei_line(i).borderweight = Sheet1.Cells(2 + i, 12).Value
zukei_line(i).linewidth = Sheet1.Cells(2 + i, 5).Value
zukei_line(i).lineheight = Sheet1.Cells(2 + i, 6).Value
zukei_line(i).intcolor = Sheet1.Cells(2 + i, 13).Value
zukei_line(i).intpattern = Sheet1.Cells(2 + i, 14).Value
zukei_line(i).intpattern2 = Sheet1.Cells(2 + i, 15).Value
Next
' /* 記号の情報をテーブル,シートに設定する */
Windows(book_name1).Activate
Sheets("表").Select
For i = 1 To 10
j = Sheet1.Cells(12 + i, 8).Value
Set cp = Workbooks(book_name1).Sheets("設定シート").DrawingObjects(j)
cp.Copy
' Windows(book_name2).Activate
Cells(i, 1).Select
ActiveSheet.Paste
zukei_mark(i) = ActiveSheet.DrawingObjects(i).Name
Next
|
|