ベストアンサー

VBAでレポート（Access）に線を引く（点線）

2004/12/01 09:59

通常の実践であれば以下のような感じでひけますよね。 Me.ScaleMode = 1 Me.ForeColor = 0 Me.Line (0 * 567, 0) - (0 * 567, 14400) これだと実線になってしまうのですが、点線をひくことは可能でしょうか？

w-inty
お礼率72% (1169/1618)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

neKo_deux
ベストアンサー率44% (5541/12319)

2004/12/01 12:54 回答No.1

線を引く前に、 Me.DrawStyle = 2 などとして、線の種類を指定してください。

質問者

お礼 2004/12/01 13:42

回答ありがとうございます。無事できました！

関連するQ&A

Access・VBAでレポートに線を引く！

レポートに線をひくのに、VBAを使っています。こんな感じです。 Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) Me.ScaleMode = 1 Me.ForeColor = 0 '一番左の縦線 Me.Line (0.3 * 567, 120)-(0.3 * 567, 6680) 一枚目はきちんと表示されるのですが、２枚目のレポートがどうしても線が思うように表示されません。何か設定とかが必要なのでしょうか？ Access2000です。
アクセスのレポート、VBAで罫線を引く方法

初心者です。いろいろ調べてみて、ここまでたどりつきましたが（どなたかの質問を参考に）、これ以上わからなくなったのでこちらに投稿しました。 Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) Me.ScaleMode = 1 Me.ForeColor = 0 '一番左の縦線 Me.Line (0, 120)-(0, 6680) End Sub 上記のコードで、罫線を引く方法はわかりました。ただ、私がやりたいことは、全てのレコードに対して線を引く方法でなく（それであれば、VBAを使うほどでもないので）、特定の位置に線を引く方法なのです。もっとわかりやすく言うと、A４用紙に２つのレコードが印刷されるレポートになっております。その２つのレコードの真ん中に、いつも線を引く、ということをさせたいのです。（要するに、切り取り線です）このような場合、どうしたら可能になるか、どなたかヒントをいただけないでしょうか。
AccessレポートのラベルをVBAでかきたい

事情があって、直接レポートには文字をかけません。なのでVBAで…と思ったのですがわかりません。線の引き方は Me.Line (8 * 567, 0)-(8 * 567, 2430) としています。こんな感じで、VBAを使い、位置を指定しつつ、表示させる文字も指定して、文字を表示、というようなことはできないでしょうか？
ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

OKWAVE コラム
VBA-セルの罫線について

エクセルシートのD4からCA30の範囲で、セルの区切りに垂直線と水平線を設定したいと思い、以下のところまではできました。 ----------------------------------------------------- With Range("D4:CA30") 　　'垂直線を点線で　　.Borders(xlInsideVertical).Weight = xlHairline 　　'水平線を実線で　　.Borders(xlInsideHorizontal).Weight = xlThin End With ----------------------------------------------------- しかし、垂直線を点線と実線の交互で表示させたいと思っています。 D4:D30→点線 E4:E30→実線 F4:F30→点線 G4:G30→実線：というように・・・そこで、 ------------------------------------------------------ Dim I As String With Range("D4:CA30") 　　.Borders(xlInsideVertical).Weight = xlHairline 　　.Borders(xlInsideHorizontal).Weight = xlThin 　　For I = "D" To "CA" Step 2 　　　　Range("I4:I30").Borders(xlInsideVertical).Weight = xlThin 　　Next End With ------------------------------------------------------- というプログラムを作ってみたのですが、「型が一致しません」とエラーが出ます。どのようにしたらよいのでしょうか？どなたか回答をお願いします。
センターライン

センターラインがオレンジの場合は追い越し禁止ですよね。　点線は追い越し可。では、白の実線はなんですか？　いらないと思いますが
白線実線のセンターラインについて

　黄色実線のセンターラインは，はみ出し禁止．（追い越し禁止の標識ないトコなら，はみ出さないなら追い越し可）　白の点線のセンターラインは，はみ出して追い越し可能ですよね．　では，白の実線のセンターラインって，これらとどう違うんですか？（実は免許取って１５年，恥ずかしながら未だに知らない．）本見ても，何だかよく分かんないし．　ということで，よろしく御願いします．
エクセルVBAでShapeRangeについて

すみません、教えてください。以下のマクロは正常に動きます。 Sub TEST() With ActiveSheet For Each s In .Shapes If s.AutoShapeType = msoShape5pointStar Then s.Delete Next .Cells.Interior.ColorIndex = 1 Set AA = .Shapes.AddShape(msoShape5pointStar, 55, 22, 25#, 25#) AA.Fill.Visible = msoTrue AA.Fill.Solid AA.Fill.ForeColor.SchemeColor = 13 AA.Fill.Transparency = 0# AA.line.Weight = 0.75 AA.line.DashStyle = msoLineSolid AA.line.Style = msoLineSingle AA.line.Transparency = 0# AA.line.Visible = msoTrue AA.line.ForeColor.SchemeColor = 64 ' AA.Copy '(1) ' .Paste '(1) ' Set AB = Selection '(1) ' .Range("A1").Select'(1) Set AB = AA.Duplicate '(2) AB.Top = 44 AB.Left = 110 ' AB.ShapeRange.Fill.ForeColor.SchemeColor = 10'(1)の２ AB.Fill.ForeColor.SchemeColor = 10 '(2)の２ End With End Sub ところが、 Set AB = AA.Duplicate '(2)の部分を、コメントアウトしている '(1)の記述に変えると、 AB.Fill.ForeColor.SchemeColor = 10 '(2)の２　の部分も ' AB.ShapeRange.Fill.ForeColor.SchemeColor = 10'(1)の２に変えないとエラーになります。 ' AA.Copy '(1) ' .Paste '(1) ' Set AB = Selection '(1) も Set AB = AA.Duplicate '(2) も、同じことのように思えるのですが、この違いで、ShapeRangeというのを入れたり消したりしなければならないのはどうしてでしょうか？エクセルは2000です。
【VBA】グラフの線とマーカーの枠線

エクセルのVBAで、グラフの線とマーカーの枠線を別々に扱いたいのですができなくて困っています。（現在はExcel2016使用しています。）具体的には、線付き散布図でマーカーの枠線は実線で表示したいのに対し、線を変えると、マーカーの枠線も一緒に変化してしまいます。以下のようなことは、試してみたのですが両方ともにマーカーの線も変化してしまいます。 with Activeworkbook.Activechart.seriesCollection(Int) .Format.Line.DashStyle や .Border.LineStyle マーカーの枠線のみ、または散布図の線のみプロパティを変化させる方法はありますでしょうか。画像のように、一方を変更させようとすると、マーカーの枠線も変わってしまい(1番上側の青線)、訳が分からなくなります。緑線のように、マーカーの線は実線で示したいです。よろしくお願いいたします。
テキスト漢字変換前に下線が出るのを消したい

ATOK15およびテキストエディタをインストールし直したのですが、テキストエディタ（秀丸およびBecky等）に入力の際、漢字変換決定前に実線の下線が出るようになりました。（MS Wordの場合はこれまで通り実線の下線は出なくて　点線の下線です。　また、今このテキストボックスに書いている際にも　これまで通り漢字変換決定前は点線の下線です）これまでは、実線下線が出ることはなかったのですが、見た感じが違うので戸惑っています。 ATOK15かテキストエディタかどちらの設定かもわからないのですが、「通常の」変換入力にする方法をお教えください。なお、OS:Win2000です。
Accessのレポートで開くと「読み取り専用なので…」と出る。

今まで通常通り表示できていたレポートを、詳細のところを白／グレーのストライプにしようと思い、以下のコードを追加しました。 Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) Count = Count + 1 If Count Mod 2 = 1 Then Me.Section(0).BackColor = 16777215 Else Me.Section(0).BackColor = 12632256 End If End Sub すると実行時エラー'2135' このプロパティは読み取り専用であるため、設定できません。と出てしまいました。どこがダメなのでしょうか？
エクセルVBAでもっとすっきりさせたい

エクセル2000です。ワークシート上にオートシェープの楕円を５個配置してあります。それぞれ名前をOval_1～Oval_5と設定しました。それぞれは以下のマクロを組み込み、クリックにより破線、実線と変更します。実線が選択されたしるしとします。 Oval_1～Oval_3で１グループ、Oval_4～Oval_5で１グループとし、それぞれのグループ内で1個の楕円しか選べないようにしたいのです。一応、希望通りの動きはするのですが、何かすっきりしません。もっと気の利いたコードはないでしょうか？ Sub Oval_Check() With ActiveSheet If .Shapes(Application.Caller).Line.DashStyle = msoLineSolid Then 'クリックしたのが実線なら .Shapes(Application.Caller).Line.DashStyle = msoLineSquareDot ' 破線に Select Case Application.Caller 'クリックしたのが Case "Oval_4" 'Oval_4なら .Shapes("Oval_5").Line.DashStyle = msoLineSolid 'Oval_5を実線に Case "Oval_5" 'Oval_5なら .Shapes("Oval_4").Line.DashStyle = msoLineSolid 'Oval_4を実線に End Select Else 'そうでないなら .Shapes(Application.Caller).Line.DashStyle = msoLineSolid ' 実線に Select Case Application.Caller 'クリックしたのが Case "Oval_1" 'Oval_1なら .Shapes.Range(Array("Oval_2", "Oval_3")).Line.DashStyle = msoLineSquareDot 'Oval_2,Oval_3を破線に Case "Oval_2" 'Oval_2なら .Shapes.Range(Array("Oval_1", "Oval_3")).Line.DashStyle = msoLineSquareDot 'Oval_1,Oval_3を破線に Case "Oval_3" 'Oval_3なら .Shapes.Range(Array("Oval_1", "Oval_2")).Line.DashStyle = msoLineSquareDot 'Oval_1,Oval_2を破線に Case "Oval_4" 'Oval_4なら .Shapes("Oval_5").Line.DashStyle = msoLineSquareDot 'Oval_5を破線に Case "Oval_5" 'Oval_5なら .Shapes("Oval_4").Line.DashStyle = msoLineSquareDot 'Oval_4を破線に End Select End If End With End Sub
エクセルVBAでグラフの線とマーカを設定したい

エクセルVBAでグラフの線とマーカを設定したいです。グラフの線は無しでマーカの線が有りにしたいのですが、マクロで記録したコードを見るとグラフの線、マーカの線ともにFormat.Line.Visibleで指定しています。実際にコードを記述しても、以下の様になり、グラフの線が表示されてしまいます。 ChartObjects("1").Chart.SeriesCollection(10).Format.Line.Visible = msoFalse With ChartObjects("1").Chart.SeriesCollection(10).Format.Line .Visible = msoTrue .ForeColor.RGB = RGB(255, 102, 0) .Transparency = 0 End With グラフの線は無しでマーカの線が有りに設定は出来ないのでしょうか?
家のネットワークを最適にできますか？：知っておくべきポイント

OKWAVE コラム
急ぎです！エクセルのグラフの目盛線

縦軸で、－１～５の数値を扱っているグラフがあります。横の目盛線の線種を点線に設定しますが、０のラインだけ実線にする方法はありますか？すみません、急ぎです！あと２時間弱で締め切りが来てしまいます。よろしくお願いします！
エクセルVBAでLineの一括処理

ワークシート上に配置した複数のオートシェープの線（Lines）に対し、一括して太さと色を変えるにはどのようなコードになるのでしょうか？勿論以下のTEST01のように名前で指定すれば可能なのですが、TEST02のような全てのLineということはできないのでしょうか？ Sub Test01() With ActiveSheet.Shapes.Range(Array("Line 259", "Line 260")) .line.Weight = 1.75 .line.ForeColor.SchemeColor = 13 End With End Sub ↓実行時エラーとなる Sub Test02() With ActiveSheet.Lines .line.Weight = 2.5 .line.ForeColor.SchemeColor = 10 End With End Sub
ワードで勝手に点線ラインがでる

人が作ったワードファイルを編集しています。目次第1章　○○○ ××× ××× ××× これを１．２．３．の部分を箇条書きで段落番号を振り字下げ設定すると第1章　○○○ ----------------------------- 　１．××× 　２．××× 　３．××× 　--------------------------- という位置で点線でラインが出てしまいます。マウスをあわせるとセル幅を変えるときに出るカーソルと同じになります。罫線削除の消しゴムでクリックしてみましたが変化はありません。このラインを消すにはどうしたらいいでしょうか？ちなみに元のファイルに一本だけこの線が出ており、それ以下を編集するとどんどん線が増えます。ワードのバージョンは2003です。よろしくお願いします。
ワードのテキストボックスで・・・

四角の枠を作り実線でなく飾りをつけようとして、テキストボックスの書式設定で実線／点線のところは十字のような線を指定、スタイルは真ん中が少し太くなっている三本線、太さは６ptに指定したば場合にＯＳｍｅワード２０００では指定したとおり十字のような三本線が作成できたのですが、ＯＳｘｐ　ワード２００２では大きな丸い点しか表示されません、ｍｅが調子が悪いのでｘｐに変えましたがｍｅで作成したものが使えないので困っておりますので宜しくお願いいたします。
【VBA】グラフの線とマーカーの枠線

エクセルのVBAで、グラフの線とマーカーの枠線を別々に扱いたいのですができなくて困っています。（現在はExcel2016使用しています。）具体的には、線付き散布図でマーカーの枠線は実線で表示したいのに対し、線を変えると、マーカーの枠線も一緒に変化してしまいます。以下のようなことは、試してみたのですが両方ともにマーカーの線も変化してしまいます。 with Activeworkbook.Activechart.seriesCollection(Int) .Format.Line.DashStyle や .Border.LineStyle マーカーのみ、または散布図のマーカーを結ぶ線の一方のみの線のプロパティを変化させる方法はありますでしょうか。よろしくお願いいたします。
ACCESS 　日付が変わった場所で改ページしたい

Win 7 Access2013 大変、お世話になっています。よろしくお願いしたいと思います。日程表で、詳細に「日付」「場所」「時間」「内容」などのフィールドがありＡ５の用紙に印字しています。1枚の用紙に収まらない場合、2枚目に順次印字されています。この2枚目に移る時、「日付」が変わった時点で改ページをしたいのです。「日付」は日が変わった時だけ入力しています。色々、調べてみて、グループ化もしてみましたがうまく出来ませんでした。「グループ化」の中で、印字の時の「グループ全体」という項目が Access2013では見当たりませんでした。何卒、ご教示方よろしくお願いいたします。【備考】モジュールには、ここでご教示いただいた下記のような「線」の記述をしています。 Option Compare Database Option Explicit Dim HI As String Dim TI As String Dim NAIYO As String Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer) HI = """" TI = """" NAIYO = """" End Sub Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) If HI <> Me.行程_日付 Then Me.直線51.Visible = True HI = Me.行程_日付 Else Me.直線51.Visible = False End If If TI <> Me.テキスト44 Then Me.直線53.Visible = True TI = Me.テキスト44 Else Me.直線53.Visible = False End If If NAIYO <> Me.内容 Then Me.直線55.Visible = True NAIYO = Me.内容 Else Me.直線55.Visible = False End If End Sub Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) Me.ScaleMode = 1 Me.ForeColor = 0 Me.DrawStyle = 0 Me.DrawWidth = 4 Me.Line (1.51 * 567, 0)-(1.51 * 567, 14400) Me.Line (6.8 * 567, 0)-(6.8 * 567, 14400) Me.Line (8.3 * 567, 0)-(8.3 * 567, 14440) End Sub
ＡＣＣＥＳＳのＶＢＡでテキストボックスの前景色を変えたい

ＡＣＣＥＳＳ初心者の者です。質問なんですが、テーブルと連結しているテキストボックスの前景色を変えるのにＶＢＡを使ってやりたいのですが、どうしたらいいのでしょうか？具体的には、　(1)以下のような生徒フォームがあり、学籍番号、名前、自宅通学は　　テーブルと連結してます。　　学籍番号　　名前　　　　自宅通学　　　００１　　　山田太郎　　FALSE 　　００２　　　木下花子　　 TRUE 　　００３　　　鈴木次郎　　 FALSE　　　　(2)生徒を上から順に舐めていって自宅通学がTRUEの者の学籍番号を赤で　　表示させたいと思います。　　上の例でいくと木下花子の学籍番号００２が赤くなればいいです。　(3)ちなみに私が作ったＶＢＡのクラスモジュールは以下の様ですが、　　これだと木下花子だけではなくて全員の学籍番号が赤くなってしまいます。　　Me.RecordsetClone.MoveFirst 　　Do Until Me.RecordsetClone.EOF 　　　　If Me.RecordsetClone!自宅通学 = True Then 　　　　　　 Me!自宅通学.ForeColor = vbRed 　　　　End If 　　　　 Me.RecordsetClone.MoveNext 　　Loop どうすればよろしいでしょうか？　よろしくお願いいたします。
Access：トグルボタンのフォントカラー変更について

Option Compare Database Private Sub トグル1_BeforeUpdate(Cancel As Integer) If トグル1 = -1 Then Me.トグル1.ForeColor = 10855845 Else 　　　　Me.トグル1.ForeColor = 0 End If End Sub Access2007を使用しています。トグルボタンをクリックした場合、ボタンのフォントカラーを変えたく、上記のようにプログラムを組みました。結果は動きました。しかし、ボタンが一つだけなら良いのですが、複数ある場合、すべてのボタンに同じプログラムを設定しないと動きません。同じようなプログラムを複数組むのは無駄な気がしたので、以下のようなプログラムを作ってみました。 Option Compare Database Dim Text As String Private Sub トグル1_BeforeUpdate(Cancel As Integer) Text="トグル1" Call Test End Sub Sub Test() If Me.ActiveControl = -1 Then Me.Text.ForeColor = 10855845 Else Me.Text.ForeColor = 0 End If End sub 結果は動きませんでした。どうやら Me.Text.ForeColor ＝ Me.トグル1.ForeColor と読んで欲しいところを Me.Text.ForeColor ＝"Me.Text.ForeColor"　と読んでいるようです。やはり、一つ一つに先頭のに記載したプログラムを入れていくしかないのでしょうか？ご教授の程、おねがいします。

VBAでレポート（Access）に線を引く（点線）

質問者が選んだベストアンサー

お礼 2004/12/01 13:42

関連するQ&A

Access・VBAでレポートに線を引く！

アクセスのレポート、VBAで罫線を引く方法

AccessレポートのラベルをVBAでかきたい

ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

VBA-セルの罫線について

センターライン

白線実線のセンターラインについて

エクセルVBAでShapeRangeについて

【VBA】グラフの線とマーカーの枠線

テキスト漢字変換前に下線が出るのを消したい

Accessのレポートで開くと「読み取り専用なので…」と出る。

エクセルVBAでもっとすっきりさせたい

エクセルVBAでグラフの線とマーカを設定したい

家のネットワークを最適にできますか？：知っておくべきポイント

急ぎです！エクセルのグラフの目盛線

エクセルVBAでLineの一括処理

ワードで勝手に点線ラインがでる

ワードのテキストボックスで・・・

【VBA】グラフの線とマーカーの枠線

ACCESS 　日付が変わった場所で改ページしたい

ＡＣＣＥＳＳのＶＢＡでテキストボックスの前景色を変えたい

Access：トグルボタンのフォントカラー変更について

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VBAでレポート（Access）に線を引く（点線）

質問者が選んだベストアンサー

お礼 2004/12/01 13:42

関連するQ&A

Access・VBAでレポートに線を引く！

アクセスのレポート、VBAで罫線を引く方法

AccessレポートのラベルをVBAでかきたい

ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

VBA-セルの罫線について

センターライン

白線実線のセンターラインについて

エクセルVBAでShapeRangeについて

【VBA】グラフの線とマーカーの枠線

テキスト漢字変換前に下線が出るのを消したい

Accessのレポートで開くと「読み取り専用なので…」と出る。

エクセルVBAでもっとすっきりさせたい

エクセルVBAでグラフの線とマーカを設定したい

家のネットワークを最適にできますか？：知っておくべきポイント

急ぎです！エクセルのグラフの目盛線

エクセルVBAでLineの一括処理

ワードで勝手に点線ラインがでる

ワードのテキストボックスで・・・

【VBA】グラフの線とマーカーの枠線

ACCESS 日付が変わった場所で改ページしたい

ＡＣＣＥＳＳのＶＢＡでテキストボックスの前景色を変えたい

Access：トグルボタンのフォントカラー変更について

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

ACCESS 　日付が変わった場所で改ページしたい

カテゴリ
一覧

専門家に質問してみよう
専門家登録