Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34249 / 76732 ←次へ | 前へ→

【47693】Re:DrawingObjectsプロパティーについての質問です。
質問  Runa  - 07/3/19(月) 16:04 -

引用なし
パスワード
   ウッシさん、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
1 hits

【47690】DrawingObjectsプロパティーについての質問です。 Runa 07/3/19(月) 14:56 質問
【47691】Re:DrawingObjectsプロパティーについての... ウッシ 07/3/19(月) 15:12 発言
【47693】Re:DrawingObjectsプロパティーについての... Runa 07/3/19(月) 16:04 質問
【47694】Re:DrawingObjectsプロパティーについての... ウッシ 07/3/19(月) 16:14 発言
【47695】Re:DrawingObjectsプロパティーについての... Kein 07/3/19(月) 16:33 発言
【47699】Re:セルのIndex? Runa 07/3/19(月) 17:50 質問
【47701】Re:セルのIndex? Kein 07/3/19(月) 18:14 発言
【47711】Re:セルのIndex? Runa 07/3/20(火) 10:30 お礼
【47692】Re:DrawingObjectsプロパティーについての... Kein 07/3/19(月) 15:22 発言

34249 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free