Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7447 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39098】グラフのタイプについて 超初心者 06/6/17(土) 20:34 質問[未読]
【39109】Re:グラフのタイプについて kobasan 06/6/18(日) 7:34 回答[未読]
【39111】Re:グラフのタイプについて 超初心者 06/6/18(日) 11:24 お礼[未読]
【39098】グラフのタイプについて
質問  超初心者  - 06/6/17(土) 20:34 -
引用なし
パスワード
   グラフのChartTypeを変数にしたいのですが、「型が一致しない」というメッセージが出ます。変数宣言の型が違うのでしょうか？
ご指導宜しくお願いします。
Sub Macro1()

Dim a As String

a = Cells(23, 1).Value

　　Range("A3:D7").Select
　　Application.CutCopyMode = False
　　Charts.Add
　　ActiveChart.ChartType = a
　　ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A3:D7")
　　ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
　　ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A3:D7"), PlotBy:= _
　　　　xlRows
End Sub
【39109】Re:グラフのタイプについて
回答  kobasan  - 06/6/18(日) 7:34 -
引用なし
パスワード
   超初心者 さん おはようございます。

>グラフのChartTypeを変数にしたいのですが、「型が一致しない」というメッセージが出ます。変数宣言の型が違うのでしょうか？

とりあえず、このようにしたらよいのでは ?

>Sub Macro1()
>

Dim gType
　　Select Case Cells(23, 1).Text
　　　　Case "xlLineStacked": gType = xlLineStacked
　　　　Case "xlLineMarkers": gType = xlLineMarkers
　　End Select

>
>　　Range("A3:D7").Select
>　　Application.CutCopyMode = False
>　　Charts.Add
　　ActiveChart.ChartType = gType
【39111】Re:グラフのタイプについて
お礼  超初心者  - 06/6/18(日) 11:24 -
引用なし
パスワード
   ▼kobasan さん：
kobasanさん　こんにちは。
ご指導ありがとうございます。
そうですね。こう言った方法があったんですね。
早速試してみました。
上手く動作して感激です。（３日くらい悩んでいたので）
本当にありがとうございます。


>超初心者 さん おはようございます。
>
>>グラフのChartTypeを変数にしたいのですが、「型が一致しない」というメッセージが出ます。変数宣言の型が違うのでしょうか？
>
>とりあえず、このようにしたらよいのでは ?
>
>>Sub Macro1()
>>
>
>Dim gType
>　　Select Case Cells(23, 1).Text
>　　　　Case "xlLineStacked": gType = xlLineStacked
>　　　　Case "xlLineMarkers": gType = xlLineMarkers
>　　End Select
>
>>
>>　　Range("A3:D7").Select
>>　　Application.CutCopyMode = False
>>　　Charts.Add
>　　ActiveChart.ChartType = gType
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7447 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free