AutoCAD LT2004を使っています。

図面の一部をExcelに貼付け、
書類を作りたいと思っております。

線種を太く、色を白に替えて、コピペはしたのですが、
Excelに貼り付ける時に小さくするので、
印刷するとうまく線が出てくれません。

何かいい方法を知っている方、教えてください。
よろしくお願いいたします。

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

A 回答 (2件)

>印刷するとうまく線が出てくれません。



・これはプリンタの性能に大きく左右される気がします。
うちの場合、カラー複合機では細部まで表現されますが、モノクロレザーだとかなり表現が減ってしまいます。
この辺は大丈夫でしょうか?


>線種を太く、色を白に替えて、コピペはしたのですが、

・線種は線の太さを表示にしていますか?
・画面色設定が黒の為、色を白に替えてと言う事でしょうか?
こちらでは設定を変えなくても(画面色が白、黒の場合でも)Excelにペーストすると白地に黒ラインでペーストされます。


こちらで試してみました。
AUTOCAD 2007
画面色:黒
線色:白
線の太さ設定:線の太さを表示
オブジェクト:500のラインを円形状配列複写、複写回数100、角度360度
線の太さ:0.00,0.09,0.2,0.4の4種類
オブジェクトを画面いっぱいに表示し、ビューコピー→Excelにて貼り付け
A4 2枚に跨る程度の大きさからオブジェクトのサイズを10%(印刷時2.5cmくらい)に小さくしても印刷されない線はありません。
0.00,0.09の線の太さは同じですが、0.2,0.4の線の太さの違いもわかります。
    • good
    • 0

エクセル上で,形式を選んで貼り付けの各種方式をいろいろ試してみて,お手元の環境で一番綺麗に出るのを探してみてください。


オートキャドのオブジェクトがお薦めかなとは思いますが,他のの方が良い場合もあります。

また,ご利用のエクセル(Office)のバージョンに応じてインストールされるプリンタなどを使い,オートキャドから図面をTIFファイルで保存し,そちらをエクセルに挿入してみます。
コピー貼り付けしないで,挿入メニュー(挿入タブ)の図で画像ファイルをワークシート上に挿入してください。
    • good
    • 0

このQ&Aに関連する人気のQ&A

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

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

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

QAutoCADに適したPDF変換フリーソフト

AutoCAD LT2000,2008で図面作成しております。
最近、PDFで送って欲しいと言われるようになってきました。
アドビのPDF作成ソフトは、結構高価なのでフリーソフトを利用しようと思っております。
CAD図面に適したPDF作成フリーソフトをご存知の方、
ご回答よろしくお願い致します。

Aベストアンサー

2007以降のAutoCADは標準でpdf出力ドライバが搭載されているでしょう。
DWG TrueViewにもDWG To PDF.pc3があります。

QExcelでAutoCadで作成した図面を貼りたい!

AutoCadで作成した図面をどうにかして
excelに貼りたいです。
こんなことってできるのでしょうか?

Aベストアンサー

こんばんは!

リンクする必要が無ければ1案として

AutoCADのメニューの ファイル 書き出し wmf
でファイル化した後、

 EXCELの図形挿入で挿入
 描写ツール 図形の調整 グループ化解除

で分解できるので個別に線サイズや色の加工が可能です。

て方法もあります。

QCADのおすすめフリーソフト

自宅で高級なCADソフトを扱うのは気がひけるので手軽につかえるおすすめなCADフリーソフトがあれば教えていただけたら幸いです。ちなみに自分は電気系です。

学校で使用してるのは「Auto CAD electrical 2007」ですので、できればこれに近いものがいいのですが、贅沢いいませんのでおすすめフリーソフトの紹介お願いします。

Aベストアンサー

フリーのCADソフトっていったらこれしかありません。
「JW CAD」
http://www.jwcad.net/

QExcel に AutoCad 図を貼り付けの際、塗りつぶしが効かない

この質問にご対応して頂き、ありがとうございます。
ご教示願います。
エクセルに雲マーク(HOLD 箇所)を描きたいのですが、AutoCad 図を貼り付けてみました。貼り付けた図を「オブジェクトの書式設定」⇒「線と色」⇒「塗りつぶしなし」で設定したのですが、どうしてもエクセルデータの上にかぶり、上手くいきません。貼り付け設定の方法か、エクセルできれいな雲マーク(オートシェイプとかではなく)を描く方法を教えて下さい。
バージョン(エクセル2000、AutoCad 2000i )
説明不備ありましたら、追質下さい。
宜しくお願い致します。

Aベストアンサー

こんばんは。
線だけ表示できればいいんですよね?

どのような方法で貼り付けなさったのか不明ですが、以下をお試しください。

(1)簡単な図形であればダイレクトにコピー、ペーストしてペースト時に
 『形式を選択して貼り付け』-『図(拡張メタファイル)』を選んでペー
 ストする。
 (これで、ベクトルデータとしてペーストされるはずです。データ量が相
  当に多かったり、複雑だとうまくいきませんが、単純な雲マーク程度な
  らうまくいくはず。)
(2)そのまま「図の調整」(または右クリック)-「グループ化」-「グル
  ープ解除」
  この時、『~~MS描画オブジェクトに変換しますか?』のダイアログが
  出ますので、「OK」。
(3)念のため、「グループ化」。(今度は「グループ化」です。以下で説
  明するポリラインになっている時は不要ですが、ばらばらの時はまとめ
  ておくため)

以上で、エクセル上で描いた線と同じ扱いができるようになるはずです。
『オブジェクトの書式設定』から「線の色」、「太さ」、「スタイル」、
「実線・点線」などが指定できるはずです。

きちんとポリラインで認識されている場合は、頂点の編集や塗り色の設定も可能になります。
このあたりは、使用ソフト間の相性みたいなのがあるみたいで、試したところ、AutoCadではバラバラの線の集まりとして認識され、VectorWorksや Illustratorからだとちゃんとポリラインとして認識されました。
(AutoCad2005、VectorWorks9.5、 IllustratorCS、Exel2000で確認)


最後に、エクセルで図形を描く方法を・・・
「オートシィプ」-「線」-「フリーフォーム」でとりあえず閉じた多角形を描く。
これを選択して「頂点の編集」から「頂点で右クリック」-「頂点を中心にスムージング」を選ぶとベジェのポイントが現れますので、これを掴んで・・・
と、ちまちまと編集していけば、自由な閉曲(直)線が描けます。
(ただし、大変面倒くさい。どちらかと言うとFreeHandや Illustratorに近い操作感覚です)
面倒なので、お薦めしません。せいぜい『ちょっと修正したいが、もとのソフトに戻るのが面倒』という時の修正くらいがいいところかな。

こんばんは。
線だけ表示できればいいんですよね?

どのような方法で貼り付けなさったのか不明ですが、以下をお試しください。

(1)簡単な図形であればダイレクトにコピー、ペーストしてペースト時に
 『形式を選択して貼り付け』-『図(拡張メタファイル)』を選んでペー
 ストする。
 (これで、ベクトルデータとしてペーストされるはずです。データ量が相
  当に多かったり、複雑だとうまくいきませんが、単純な雲マーク程度な
  らうまくいくはず。)
(2)そのまま「図の調整」(また...続きを読む

QDXFなどを読み込める「フリーソフト」AUTO CADありますか?

DXFなどを読み込める「フリーソフト」AUTO CADありますか?
他のCADを使っていますが、プロテクターがなく、プリントできません。DXFなどには変換できるので、
フリーソフトを使って出力したいです。

Aベストアンサー

個人的には、次の二つを使っています。どちらも無料です。

DWG TrueView(オートデスク純正ビューア)
http://www.autodesk.co.jp/adsk/servlet/pc/index?siteID=1169823&id=14936772

Solid Edge 2D Drafting(シーメンス製CADソフト:編集可能)
http://www.forest.impress.co.jp/docs/review/20100519_367944.html

これは個人的には使っていませんが、フリーCADの定番で、DXFを読み込めます。

Jw-CAD
http://www.jwcad.net/

QExcel VBAでオートフィルタで抽出したデータの一部だけ貼り付けるには(第2弾)

今週質問タイトルの件で回答いただき解決したのですが、更なる操作を希望したく質問させていただきました。内容は

Sheet2にあるデータに複数条件でソートをかけ、ある数字(1から18まで)を入れたら、オートフィルタでE列のデータの選択部をSheet1のある部分に1行貼り付けるという作業です。以下のInputBoxに数字を入れるところからです。
(ソート後、どの数字を入れるか判断)

InputBoxにある数字"○"(1から18まで)を入れる

オートフィルタE列「"○-"で始まる」or「"-○"で終わる」

抽出されたデータの右隣のF列(1列だけ)のデータ(上から17個分)を選択

選択部をコピー

Sheet1を選択。Sheet1の"K5"セルに行列を入れ替えて貼り付け

というものでしたが、これはできました。ここから先です。

Sheet1のU5セルに先ほどインプットした数字"○"(1から18までのどれか)を入れる

Sheet2にてオートフィルタE列「"○-"で始まる」or「"-○"で終わる」によって抽出されたデータの一番上の文字列から「"○-"」もしくは「"-○"」を除いて残った数字(○を除く1から18までの数字)をSheet1のW5セルに(先ほどのセルとは1個飛ばして)入れる

以下抽出されたデータの上から2番目の文字列を同様に操作し、1個飛ばしのセルY5に入れる。これがBC5セルまで続く

というものです。難しいとは存じますが、どなたか教えていただけませんか?
よろしくお願いいたします。

今週質問タイトルの件で回答いただき解決したのですが、更なる操作を希望したく質問させていただきました。内容は

Sheet2にあるデータに複数条件でソートをかけ、ある数字(1から18まで)を入れたら、オートフィルタでE列のデータの選択部をSheet1のある部分に1行貼り付けるという作業です。以下のInputBoxに数字を入れるところからです。
(ソート後、どの数字を入れるか判断)

InputBoxにある数字"○"(1から18まで)を入れる

オートフィルタE列「"○-"で始まる」or「"-○"で終わる」

...続きを読む

Aベストアンサー

こんにちは。
>そこでひとつ飛ばしにデータを入れる形をとればうまく収まると考えて上記の質問を行った次第です。

確かに、昨日の並べ替えと同じように、言葉では、そのとおりには違いないのですが、やはり普段私などが書くコードと違ってきます。そのままでは、うまくいかないと思います。早い話、セル指定しないといけないということです。(それ以外は分かりません) 
論より証拠です、以下をみてください。

書き出し位置に関しては、もう一度点検してください。
'---------------------------------------------------------------------------
'<標準モジュール>
Sub PickUpSort4()
 Dim Cr1 As Variant, Rng As Range, ret As Variant
 Dim i As Long, j As Long, k As Long, c As Range, myData() As Variant
 Dim myDataI As String
 '最初のシート
 With Worksheets("Sheet2")
  .Select
'フィルターモードの解除
'  If Not .AutoFilter Is Nothing Then
'   .AutoFilter.Range.AutoFilter
'  End If
  'オートフィルタの範囲の取り直し(範囲の固定でも良い)
  Set Rng = .Range("B1", Range("B1").End(xlDown).Offset(, 4))
  Do
   Cr1 = Application.InputBox("1~18までの数字を入れてください", Type:=2)
   '
   If VarType(Cr1) = vbBoolean Or Cr1 = "" Then
    Exit Sub
   ElseIf CLng(Cr1) < 1 Or CLng(Cr1) > 18 Then
    MsgBox "1~18までの数を入れてください", vbInformation
   End If
  Loop Until CLng(Cr1) > 0 And CLng(Cr1) < 19
  'オートフィルタ
  Worksheets("Sheet1").Range("U5").Value = Cr1
  Rng.AutoFilter _
  Field:=4, _
  Criteria1:="=" & Cr1 & "-*", _
  Operator:=xlOr, _
  Criteria2:="=" & "*-" & Cr1
  '
  '検索数のチェック
  'B2~下にチェック
  ret = Application.Subtotal(3, Range(Cells(2, 6), Cells(2, 6).End(xlDown)))
  If ret = 0 Then
   MsgBox "該当のものがなかったようです。", vbInformation
   Exit Sub 'なかったら終了
  End If
  On Error Resume Next
  'Cells(2,5 ) = E2 ~
  For Each c In .Range(Cells(2, 5), Cells(2, 5).End(xlDown)). _
   SpecialCells(xlCellTypeVisible)
   ReDim Preserve myData(k)
   myData(k) = c.Value
   k = k + 1
  Next c
  'データ貼り付け U11~
  Worksheets("Sheet1").Range("U11").Resize(, 17).Value = myData(i)
  '-以降・以前の文字抜き出し
  For j = 0 To 18 '配列用に 17 = 18-1 (データは、18個)
   myDataI = Application.Substitute(myData(j), Cr1 & "-", "")
   myDataI = Application.Substitute(myDataI, "-" & Cr1, "")
   'Cell(5,21) = U-V ~ 結合セルに対して
   Worksheets("Sheet1").Cells(5, 21 + j * 2).Value = myDataI
  Next
 End With
 Set Rng = Nothing
 Beep '終了の合図
End Sub
'---------------------------------------------------------------------------

最後に、
「後出しで、「結合セル」の話を言うと、複数の人にクレームが付けられるくらい……」、コードを書いている人ならともかく、このクレームをする人たちが、一体、どのぐらいの裏付けがあるのかは私には分かりません。私の知っている限りでは、Microsoft社(本社)が、結合セルのあるシートでエラーが起こる問題に対して、97以降、ずっとまったく手付かずにいるということは確かです。

>追伸:昨日締め切った並べ替えの件ですが、やはり今職場でブックを開いてリストを見るとちゃんとあるんです。なんで家のパソコンだとなくなるのでしょうか?不思議です。

入れた並び替えリストがなくなるということですね。
システムや一部のフォルダやファイルに保護機能をつけていませんか?

こんにちは。
>そこでひとつ飛ばしにデータを入れる形をとればうまく収まると考えて上記の質問を行った次第です。

確かに、昨日の並べ替えと同じように、言葉では、そのとおりには違いないのですが、やはり普段私などが書くコードと違ってきます。そのままでは、うまくいかないと思います。早い話、セル指定しないといけないということです。(それ以外は分かりません) 
論より証拠です、以下をみてください。

書き出し位置に関しては、もう一度点検してください。
'----------------------------------...続きを読む

QAutoCADに適したPDF変換フリーソフト

AutoCAD LT2002で図面作成しております。
最近、A2原図を手渡しするより、
PDFで送って欲しいと言われるようになってきました。
アドビのPDF作成ソフトは、結構高価なのでフリーソフトを利用しようと思っております。
CAD図面に適したPDF作成フリーソフトをご存知の方、
ご回答よろしくお願い致します。

Aベストアンサー

No3です 補足
「いきなりPDF」の用紙サイズはA3までです。
解像度600dpiまで。

事務所が買ってくれるなら、もう1000円プラスして、
「いきなりPDF pro」を買っちゃいましょう。
現場ごとに一つのファイルにまとめれるらしいです。
図面枚数と同じPDFファイル数だと、面倒です。

QExcelへ貼り付けた画像の一部をカット

地図やイラスト等の画像をExcelへ貼り付けた後に、その画像の
一部を切り取ることができるかと思います。
例えば、画像の上半分は不要なので、カットしたい場合等。
操作方法をご存知の方、教えて下さい!

JPEGやビットマップではなく、Excelでの加工を前提とした
回答でお願いします!

Aベストアンサー

こんにちは

Excelでトリミングしたいのですね。

古いExcelであれば、図を右クリックして、図の書式設定(あやしいですが)にトリミングのタブがあったと思います。

最近のExcelであれば、図を右クリックして、[図]ツールバーの表示で、表示されたツールバーの中に、トリミングのアイコンがあります。

これらの操作後にトリミング出来ますので、図の、上下左右をドラッグして、内側へ縮めれば、上下左右の不要な部分をトリミング出来ます。

ご確認ください。

Qフリーソフトで、油圧回路図を描けるCADソフトを教えてください

タイトルそのままですが、フリーソフトで、油圧回路図を描けるCADソフトを教えてください。

Aベストアンサー

フリーソフトで最も互換性のあるのはJw_cadではないでしょうか。機能的にも問題ないと思います。

参考URL:http://www.jwcad.net/

QExcel VBAでオートフィルタで抽出したデータの一部だけ貼り付けるには

いつもこのコーナーでは皆様にお世話になっております。以下のVBAマクロが組める方ご教示ください。

Sheet2にあるデータに複数条件でソートをかけ、ある数字(1から18まで)を入れたら、オートフィルタでE列のデータの選択部をSheet1のある部分に1行貼り付けるという作業です。以下のInputBoxに数字を入れるところからです。

(ソート後、どの数字を入れるか判断)

InputBoxにある数字"○"(1から18まで)を入れる

オートフィルタE列「"○-"で始まる」or「"-○"で終わる」

抽出されたデータのE列(1列だけ)のデータ(上から17個分)を選択

選択部をコピー

Sheet1を選択。Sheet1の"K5"セルに行列を入れ替えて貼り付け

という流れなのですが・・・

わかる方教えてください。よろしくお願いします。

Aベストアンサー

#3 は、また、ミスです。(集中力が落ちてきました。)

# 訂正後:

Dim Cr1 As Variant
Dim i As Long, c As Range


人気Q&Aランキング

おすすめ情報