EXCEL97でオブジェクトとしてグラフを作成しています。
グラフのタイトルにシート名を参照させる方法はありますでしょうか。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

アクティブシートにグラフが1つしかない例です。


こういう意味の質問でした? (『ActiveSheet.Name』の箇所に他の文字も結合できます。)
ご参考に。

Sub setChartTitle()
  With ActiveSheet.ChartObjects(1).Chart
    .HasTitle = True
    .ChartTitle.Text = ActiveSheet.Name
  End With
End Sub
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました。
マクロを使うと簡単にできるんですね。参考になりました。

お礼日時:2001/12/18 17:07

こんにちは



 以下の手順でいかがでしょうか?

1.ワークシート上のどこかのセル、例えばセルG1に以下の数式を入力
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31)
2.グラフタイトルをクリック
3.数式バーをクリックして = を入力
4.そのまま セルG1 をクリック
→数式バーに =Sheet1!G1 のように表示されます。
5.Enter

 グラフタイトルをクリックしてそのままセル参照を入力するのではなく、数式バー上で入力することで、セルとの間にリンクを設定することができます。

 以下のページもご参考になるのでは?

【エクセル技道場】-シート-ワークシート名を表示する関数
http://www2.odn.ne.jp/excel/waza/sheet.html#SEC5

参考URL:http://www2.odn.ne.jp/excel/waza/sheet.html#SEC5
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました。
ワークシート名を表示する関数がある事を知り参考になりました。
ワーク用のセルを作っておけばいいんですね。

お礼日時:2001/12/18 17:09

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qwordpressの固定ページのタイトルデザイン

wordpressの固定ページのタイトルデザインについて質問です。
テンプレートはtwenty tenです。

固定ページでは、タイトルが表示されますが、
そのタイトルの文字色を変更したり、文字の大きさを変更するにはどうすればいいですか?

特にページごとにデザインをかえたいわけではなく、全ページ共通のデザインなので、
スタイルシートをちょっといじれば出来るような気はするのですが・・・。

宜しくお願いいたします。

Aベストアンサー

Firebug(FireFox)などで調べれば、「ちょっといじる場所」は2秒で分ります。

QExcel2000マクロ_全てのシートに対して埋込グラフのタイトルをシート名にする

何方か、回答をお願いします。
下記のマクロは全てのシートに対して埋込グラフのタイトルをシート名にする物ですが
ChartObjectsメソッドは失敗しましたと出るときが有ります。
On Error GoTo が効いてErrHandlerに行くときも有るのでよく分かりません。
有識者の方々のもっと良いコードを教えて下さい。
(1つのシートに対してグラフは0~3個です。)

Sub シート名グラフ名()

Dim mysheet As Worksheet
For Each mysheet In Worksheets

On Error GoTo ErrHandler

With mysheet.ChartObjects(1).Chart
.ChartTitle.Text = mysheet.Name
End With

With mysheet.ChartObjects(2).Chart
.ChartTitle.Text = mysheet.Name
End With

With mysheet.ChartObjects(3).Chart
.ChartTitle.Text = mysheet.Name
End With
ErrHandler:
Next mysheet
End Sub

何方か、回答をお願いします。
下記のマクロは全てのシートに対して埋込グラフのタイトルをシート名にする物ですが
ChartObjectsメソッドは失敗しましたと出るときが有ります。
On Error GoTo が効いてErrHandlerに行くときも有るのでよく分かりません。
有識者の方々のもっと良いコードを教えて下さい。
(1つのシートに対してグラフは0~3個です。)

Sub シート名グラフ名()

Dim mysheet As Worksheet
For Each mysheet In Worksheets

On Error GoTo ErrHandler

With mysheet.ChartOb...続きを読む

Aベストアンサー

こんばんは。

ためしに、元のコードに付け足してみました。
不必要なものは、削除してしまってください。

Sub グラフ名前調査() 'グラフをアクティブにしておく
Dim strName As String
Dim ChartName As String
Dim myChart As Object
Dim i As Integer
Dim t As String
strName = StrConv(TypeName(Selection), vbUpperCase)
If strName = "CHARTAREA" Or _
  strName = "GRIDLINES" Or _
  strName = "PLOTAREA" Then
  ChartName = ActiveChart.Name '名前
  i = ActiveChart.Parent.Index 'インデックス
  t = ActiveChart.ChartTitle.Caption 'タイトル
 
  MsgBox "名前:" & ChartName & vbCrLf & _
     "インデックス: " & CStr(i) & vbCrLf & _
     "タイトル:" & t
End If
End Sub

こんばんは。

ためしに、元のコードに付け足してみました。
不必要なものは、削除してしまってください。

Sub グラフ名前調査() 'グラフをアクティブにしておく
Dim strName As String
Dim ChartName As String
Dim myChart As Object
Dim i As Integer
Dim t As String
strName = StrConv(TypeName(Selection), vbUpperCase)
If strName = "CHARTAREA" Or _
  strName = "GRIDLINES" Or _
  strName = "PLOTAREA" Then
  ChartName = ActiveChart.Name '名前
  i = ActiveChart.Parent.Ind...続きを読む

Qパワポのタイトルの所だけにデザインをつけたいです。

パワーポイントを作っているのですが、その際に、表紙以外のページについては、背景は白紙で、タイトルの所にだけデザインをつけるようにしたいです。
イメージとしては、添付先の写真のような感じにしたいのですが、どうやればできるのか分かりません。
どなたか助けてください。お願いします。

Aベストアンサー

次のどちらかの方法で。
・2枚目でタイトル部分だけを作成し、だいたい必要な枚数を「スライドの複製」でつくっておく。
 (3枚目以降はタイトルのテキスト枠の文字を変えるだけで済ませる。)

・表示→スライドマスター
  全スライドに共通するものを作成する。
  (2枚目以降に適用させる)

Q会社のExcel97で作成したファイルが自宅のExcel97で開けません(悲)

友人の事なんですが皆様よろしくお願いします。長い説明です、すみません。

友人が会社で作成したExcel97のファイルが自宅のパソコンのExcel97で開けなくてエラーが出るのです。そのエラーとは、

「○(の中に×)プリンタが組み込まれていません。コントロールパネルの[設定]-[プリンタ]コマンドでプリンタを読み込んでください。」

と出るのです。取り合えずキャンセルをクリックするのですが、次のようなエラーが又出てしまって困っています。

「コントロールパネルを確認して下さい。既定値のプリンタでエラーが発生した為、印刷できませんでした。原因として幾つかの理由が考えられます。……」

と長い文章のメッセージが出てしまいます。
友人はプリンタを持っておりませんし、マイクロソフトのWebサイトでも必要とする「構成」の説明のところには「プリンタ」が必須とは書いて有りませんでしたし…。
友人としては、自宅で書き込んで会社で印刷するのだそうです。

ただ友人が言いますのには、会社ではLanか何かでプリンタは繋がっているのだそうです。
あと会社での文書(ファイル)作成時には印刷する大きさの青い(ブルー)の枠の中に打ち込んで(書き込んで?)いるのだそうです。

会社のマシンにはWindowsMeが入っているそうで、友人のマシンにはWindows98SEが入っています。
そうそう友人は、Office97からインストゥールしたって言っていました。

友人のマシンは、Athlon1.0GHz,DIMM512MB,GeForce2MX 32MB,Onbord sound,Modem56k(PCI)がおおよその構成です。私が一年前ほどからWin機を使っていたので、つい最近友人を手伝って自作・組み立てた物です。

友人は、仕事の為にMacから乗り換えたので「Win機は解り難い」って言っていましてExcel(Office)97も初めて、私も自作をほんの少し知っている程度で、勿論Excel&Officeも初めて友人宅で触りました。

友人の事なんですが皆様よろしくお願いします。長い説明です、すみません。

友人が会社で作成したExcel97のファイルが自宅のパソコンのExcel97で開けなくてエラーが出るのです。そのエラーとは、

「○(の中に×)プリンタが組み込まれていません。コントロールパネルの[設定]-[プリンタ]コマンドでプリンタを読み込んでください。」

と出るのです。取り合えずキャンセルをクリックするのですが、次のようなエラーが又出てしまって困っています。

「コントロールパネルを確認して下さい。既定値のプリンタ...続きを読む

Aベストアンサー

プリンタを使用しなくても、プリンタは設定しておいたほうがいいですよ。

スタートメニュー/設定/プリンタで一覧表示してプリンタが1つも無い状態だと「印刷プレビュー」等の機能が使用できません。
そこで、プリンタを使わない場合、なんでもいいから適当にプリンタを設定しておきます。

<設定方法>
スタートメニュー/設定/プリンタでプリンタの追加をダブルクリックし、あとは指示にしたがって進めていきます。
プリンタはCanon LBP-740等を適当に選択しておきます。
最後にテスト印刷をするか聞いてくるので「いいえ」を選択します。

Qタイトル表示をインラインフレームの内のものにしたい</a></h4> <p class="relatedQA-body hide" id="relatedQA-Q_toggle_4185482"> 最初に「index.html」にアクセスしたときは、そのままのタイトル表示<br /> (<title>タグ内のもの)で問題ないのですが、インラインフレーム内<br /> に、例えば「annai.html」を表示させたときに、現在のフレーム内の<br /> ページタイトルに変えることは可能でしょうか?<br /> <br /> 下に詳しく表記します。<br /> アクセス当初「index.html」<br /> ↓<br /> ・・・・・・・・・・・・・・・・・・・・<br /> <html><br /> <head><br /> <title>インデックス</title><br /> </head><br /> <body><br /> <a href="annai.html" target="NAME">案内</a><br /> <iframe name="NAME" (略)></iframe><br /> </body><br /> <html><br /> ・・・・・・・・・・・・・・・・・・・・<br /> 上記のままだとブラウザのタイトルバーに「インデックス」と表示される<br /> <br /> インラインフレームに「annai.html」を表示させたとき、<br /> ↓<br /> ・・・・・・・・・・・・・・・・・・・・<br /> <html><br /> <head><br /> <title>案内</title><br /> </head><br /> <body><br /> </body><br /> <html><br /> ・・・・・・・・・・・・・・・・・・・・<br /> タイトルバーを上記の<title>タグ内の、「案内」に変えたい<br /> <br /> 返ってややこしい説明になっていましたら、スイマセン。<br /> 回答よろしくお願いいたします。 </p> <p class="relatedQA-body" id="relatedQA-Q_toggle_4185482_truncated"> 最初に「index.html」にアクセスしたときは、そのままのタイトル表示<br /> (<title>タグ内のもの)で問題ないのですが、インラインフレーム内<br /> に、例えば「annai.html」を表示させたときに、現在のフレーム内の<br /> ページタイトルに変えることは可能でしょうか?<br /> <br /> 下に詳しく表記します。<br /> アクセス当初「index.html」<br /> ↓<br /> ・・・・・・・・・・・・・・・・・・・・<br /> <html><br /> <head><br /> <title>インデックス</title><br /> </head><br /> <body><br /> <a href="annai.html" target="NAME">案内</a><br /> <iframe name="NAME" (略)></i...<a class="relatedQA-body-more" href="javascript:void 0;">続きを読む</a> </p> </div> <div class="relatedQA-inner relatedQA-inner--A"> <p class="relatedQA-head"><i class="fa fa-mail-reply fa-rotate-180"></i><span class="relatedQA-head-icon">A</span><span class="relatedQA-head-BA">ベストアンサー</span></p> <p class="relatedQA-body" id="relatedQA-A_toggle_12566531"> Javascriptを使って。<br /> <br /> <iframe <br /> onload="document.title=this.contentWindow.document.title"<br /> ~></iframe><br /> <br /> Javascriptを使っているので、iframe内に別ドメインのページ(外部サイト)を読み込むとエラーになります。<br /> <br /> 最初からiframe内のページのタイトルになりますので、<br /> 最初にiframe内に表示するページに妥当なtitleを付けておく必要があります。<br /> <br /> Operaでは動作せず。原因不明。(ただしエラーにもならない。) </p> </div> <div class="relatedQA-more"><a data-osccid="related_answer_more" href="//oshiete.goo.ne.jp/qa/4185482.html">他の回答も見る</a></div> </div><!--//relatedQA-wrap--> <div class="relatedQA-wrap"> <div class="relatedQA-inner relatedQA-inner--Q"> <h4 class="relatedQA-head"><span class="relatedQA-head-icon">Q</span><a data-osccid="related_answer_qtitle" href="//oshiete.goo.ne.jp/qa/6267624.html">Excelでグラフを作成する際、新しいのシートで作成すると一面グレーに</a></h4> <p class="relatedQA-body" id="relatedQA-Q_toggle_6267624"> Excelでグラフを作成する際、新しいのシートで作成すると一面グレーになってしまいます。<br /> オブジェクトとしては作成できます。<br /> グラフツールバーよりグラフエリア等を選択すると選択されますので、作成はされているようです。<br /> どうすれば、作成されたグラフを表示できるのでしょうか。 </p> </div> <div class="relatedQA-inner relatedQA-inner--A"> <p class="relatedQA-head"><i class="fa fa-mail-reply fa-rotate-180"></i><span class="relatedQA-head-icon">A</span><span class="relatedQA-head-BA">ベストアンサー</span></p> <p class="relatedQA-body" id="relatedQA-A_toggle_17790427"> 急になったのですか?<br /> <br /> 試験の練習の為なら、取り敢えず、オブジェクトでも、操作は同じなので。<br /> <br /> グラフだけを選択して、印刷プレビューにすると、専用シートと同じように<br /> 表示されます。印刷もグラフのみできます。<br /> <br /> あと、やれる事は、「ヘルプ」の「アプリケーションの自動修復」です。<br /> <br /> Office全体を修復するので、ユーザー設定したものが初期状態に戻るかも<br /> しれませんが。<br /> <br /> あとは、マクロが入っているとか、セルを非表示の設定にしているとか、シートや<br /> ブックに保護がかかっている、などが考えられますが。<br /> <br /> 今の所、これ位しか考えられませんが。 </p> </div> <div class="relatedQA-more"><a data-osccid="related_answer_more" href="//oshiete.goo.ne.jp/qa/6267624.html">他の回答も見る</a></div> </div><!--//relatedQA-wrap--> <div class="relatedQA-wrap"> <div class="relatedQA-inner relatedQA-inner--Q"> <h4 class="relatedQA-head"><span class="relatedQA-head-icon">Q</span><a data-osccid="related_answer_qtitle" href="//oshiete.goo.ne.jp/qa/177858.html"><TITLE>タイトルを文書内に表示

<TITLE>タイトル</TITLE>を文書内に表示するにはどうしたらよかったでしょうか。
タイトルバーだけでなく、文書の先頭にも表示させたいのですが、javascriptで可能でしょうか。

#HTMLでも可能だったりして?

Aベストアンサー

素直に<BODY>タグの中に<H1>や<FONT size="+3">などを使ってもう一度書いたらどうでしょうか。

変にこってJavascriptやらなんやらを使ってもJavaを使えないブラウザの人には見えませんし、素直に書いてやるのが一番だと思います。

QEXCELマクロでシート作成&シート名をつける方法

EXCELでセルK列に入力した名称でシートをどんどん作成したいのですが、
下記のようにやってみましたが、うまく実行されません。
2回目の←の部分で、終わってしまいます。
詳しい方、教えてください。

Sub Macro3()

Dim neSheet As String
Dim fMax As Integer
Dim num As Integer
Dim i As Integer

fMax = Range("B2").Value
num = 2

For i = 1 To fMax

neSheet = Range("k" & num).Value
Worksheets.Add(After:=Worksheets(1)).Name = neSheet ←
num = num + 1

Next i
End Sub

Aベストアンサー

ワークシートを追加すると、アクティブシートが
変わってしまいます。
neSheet = Range("k" & num).Value
↑こういう記述をワークシートオブジェクトからきちんと
記述してください。


Sub Macro3()
  Dim neSheet As String
  Dim fMax As Integer
  Dim i As Integer
  Dim sht As Worksheet
  Set sht = Worksheets(1)
  fMax = sht.Range("B2").Value
  For i = 1 To fMax
    neSheet = sht.Range("k" & (i + 1)).Value
    Worksheets.Add(After:=Worksheets(1)).Name = neSheet
    Next i
End Sub
↑このコードは、作成するシート情報
(セルB2作成シート数とK列のシート名)は最右端シートに
設定されいるものとします。

ワークシートを追加すると、アクティブシートが
変わってしまいます。
neSheet = Range("k" & num).Value
↑こういう記述をワークシートオブジェクトからきちんと
記述してください。


Sub Macro3()
  Dim neSheet As String
  Dim fMax As Integer
  Dim i As Integer
  Dim sht As Worksheet
  Set sht = Worksheets(1)
  fMax = sht.Range("B2").Value
  For i = 1 To fMax
    neSheet = sht.Range("k" & (i + 1)).Value
    Worksheets.Add(After:=Worksheets(1)).Nam...続きを読む

Qタイトルについて

こんにちは。よろしくお願いします。

HPビルダーで商用のHPを作成しています。
検索ロボットにひっかかるように、タイトルやキーワードをタグ入力?していますが、うまくいきません。

<TITLE>○○のお店</TITLE>
↑このタグを入れると、画面最上に「○○のお店」と表示されるようになりますよね?
それが、ビルダーのページ編集中には正常に表示されるのですが、いざアップロードすると表示されません。ソースを見てみても、ビルダーで入力したはずのタイトルやキーワードがみあたりません。
ただHPのアドレスが表示されているだけで・・・
何故なんでしょうか・・・

あまりPCに詳しくないので説明が下手でごめんなさい。
どなたか教えて下さい!!

Aベストアンサー

ソース拝見しました。
ブラウザの一番上、ホームページタイトルにあたるところに表示されないと言うご質問ですよね?

えと、表示されました。
IE6、Firefox、ネスケ7、Opera全て問題なかったです。
どのブラウザで、表示されませんでしたか?
できれば、全部見たいところです。差し支えなければ、アップロード済みのURLを教えてください。

#これは質問とは関係ありませんが、ソースに同じことが何度も書かれていて、無意味な箇所があります。
できる限り整斉しましょう。
⇒4行目の文字コードの箇所、19行目と23行目にも同じ内容が。
21行目と24行目も同じですし、20行目と25行目も…。

QExcel シートを自動作成、セル値をシート名に 

エクセルのマクロの自動記録で作業の効率化を図りたいのですがうまく出来ません、ご教示いただけ無いでしょうか。
(VBAは初心者です。本とネットを検索しながら作成していたのですが、
急きょファイルを作成しなければいけない状況になりました。)

■Excel2010

■ブック詳細
・Sheet"企業一覧" → 行ごとに企業名、シート名が記載された表があります。
  A列 企業名
  B列 シート名

・Sheet"マスタ" → 見積書のフォーマットがあります。
  A4 企業名 


■希望作業
シート「企業一覧」の企業ごとにボタンを作り、ボタンを押すと

1."マスタ(Sheet)"のコピーが作成され、
2.コピーされたシートのA4セルに"企業一覧(Sheet)"A列の企業名が記載され、
3.コピーされたシート名に"企業一覧(Sheet)"のB列のシート名が記載され、
4."企業一覧(Sheet)"のB列のシート名に新しいシートへのハイパーリンクを付け
5."企業一覧(Sheet)"に戻る

※下記作業ができません。
・コピーされた新しいシートに、シート名が付けられない。
・"企業一覧(Sheet)"のシート名にコピーされた新しいシートへのハイパーリンクを付けられない。

※シートのコピーは可能なら"企業一覧(Sheet)"の企業名表記順に作成したいと思っています。

※各企業行ごとにボタンを作るのは面倒なのですが、
企業名/シート名の表記がよく変更になるため、入力と同時にマクロが実行されるのではなく、
何かワンクッションを置きたいと思っています。


※シートのコピー作成、企業名の記載までは出来たのですが、
その他の作業ができません。よろしくお願いいたします。

---------------------------
Sub Sheet作成()
'
' Sheet作成 Macro
'
'
Sheets("マスタ").Select
Sheets("マスタ").Copy After:=Sheets("マスタ")
Range("A4:B4").Select
ActiveCell.FormulaR1C1 = "=企業一覧!R8C1"
Range("C4").Select

Exit Sub

End Sub

--------------------------

エクセルのマクロの自動記録で作業の効率化を図りたいのですがうまく出来ません、ご教示いただけ無いでしょうか。
(VBAは初心者です。本とネットを検索しながら作成していたのですが、
急きょファイルを作成しなければいけない状況になりました。)

■Excel2010

■ブック詳細
・Sheet"企業一覧" → 行ごとに企業名、シート名が記載された表があります。
  A列 企業名
  B列 シート名

・Sheet"マスタ" → 見積書のフォーマットがあります。
  A4 企業名 


■希望作業
シート「企業一覧」の企業ごとに...続きを読む

Aベストアンサー

変更点:
1.マクロを取り付けるボタンは「1つだけ」用意する事として,「現在選ばれているセル」のシートを作成することにします
  (複数セル選択可。不連続セルの選択可。マクロボタンは記号一覧シートに作成すること。)
2.選択されたデータの該当するシートが「既に作成済み」である場合は,既存の該当企業シートを「削除」し,新たに作成することにします
3.新しいシートの「どこへの」ハイパーリンクを付けたいのか不明なのでA4にする
4.リストB列の記載が「不適切なシート名」だった場合は無視して続行する

sub macro1()
 dim h as range
 application.screenupdating = false
 on error resume next

 for each h in application.intersect(selection.entirerow, range("A:A"))
 if h <> "" then

’既存シートを削除する
 application.displayalerts = false
 worksheets(h.offset(0, 1).value).delete
 application.displayalerts = true

’シートを作成する
 worksheets("マスタ").copy after:=worksheets(worksheets.count)
 activesheet.name = h.offset(0, 1).value
 range("A4").formula = "=企業一覧!" & h.address
 h.offset(0, 1).hyperlinks.delete
 worksheets("企業一覧").hyperlinks.add anchor:=h.offset(0, 1), address:="", subaddress:= h.offset(0, 1) & "!A4"

 end if
 next

’シートを並べ替える
 worksheets("企業一覧").select
 for each h in range("B2:B" & range("B65536").end(xlup).row)
 worksheets(h.value).move after:=worksheets(worksheets.count)
 next
 worksheets("企業一覧").select
 application.screenupdating = true
end sub

変更点:
1.マクロを取り付けるボタンは「1つだけ」用意する事として,「現在選ばれているセル」のシートを作成することにします
  (複数セル選択可。不連続セルの選択可。マクロボタンは記号一覧シートに作成すること。)
2.選択されたデータの該当するシートが「既に作成済み」である場合は,既存の該当企業シートを「削除」し,新たに作成することにします
3.新しいシートの「どこへの」ハイパーリンクを付けたいのか不明なのでA4にする
4.リストB列の記載が「不適切なシート名」だった場合は無...続きを読む


人気Q&Aランキング