Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52716 / 76736

←次へ　｜　前へ→


	【28851】Re:ChartTypeプロパティについて

りん

- 05/9/16(金) 10:29 -


	引用なし

	パスワード

▼ビール腹子さん：
>りんさん、ご返答ありがとうございます。
>りんさんの記述を引用してみましたが、できる場所は変わらずでした(;_q)

位置がずれるという意味がよくわからないので、とりあえずログをとってみましょう。
新しいブックにこれを記述して、グラフ作成後のシートを表示してから実行してみてください。
Sub test()
　 Dim co As ChartObject
　 Dim ws(1 To 2) As Worksheet
　 Set ws(1) = ActiveWorkbook.ActiveSheet 'グラフのあるシート
　 Set ws(2) = Workbooks.Add.Worksheets(1) 'ログ表示用
　 '
　 For Each co In ws(1).ChartObjects
　　　RR& = RR& + 1
　　　With co
　　　　 ws(2).Cells(RR&, 1).Value = .Name
　　　　 ws(2).Cells(RR&, 2).Value = .Left
　　　　 With .TopLeftCell
　　　　　　ws(2).Cells(RR&, 3).Value = .Address(False, False)
　　　　　　ws(2).Cells(RR&, 4).Value = .Left
　　　　 End With
　　　　 ws(2).Cells(RR&, 5).FormulaR1C1 = "=RC[-3]-RC[-1]"
　　　End With
　 Next
　 '
　 ws(2).Parent.Saved = True
　 If RR& = 0 Then
　　　MsgBox "シート上に埋め込みグラフ無し", vbExclamation
　　　ws(2).Parent.Close
　 End If
　 Erase ws
End Sub

0 hits

▼

【28719】ChartTypeプロパティについて ビール腹子 05/9/13(火) 15:37