chsugiyama

投稿

Excel VBA からWORD、VISIO、ファイルを開く

2月 06, 2015

会議で、エクセルから、WORD、VISIO等を開くことがありましたので VBAを作成しました。 ◆ボタンで　VisioとWordのファイルがエクセルから開きます。　会議中、エクスプローラ等を立ち上げてサーバの中を検索してファイルを開く等をしていると、　時間の無駄になります。時間短縮のために今後も活用していきたいと思います。 ◆Wordと、Visioで、開き方が異なるので、まとめる良い機会になりました。 ◆エクセルからWORDを開くときのコードです。　Sub ExcelからWORD文書を開く() ◆エクセルからVisioを開くときのコードです。　Sub ExcelからVISIO文書を開く() ◇エクセルのファイルの開き方は参考に書いてあります。　Sub ExcelからExcelを開く() ◇参照設定は現在の設定を、メッセージボックスに表示します。　Sub 参照変数表示() ◇エラーのチェックはしていません。　たとえば、WORDが開いている場合にエラーになります。　office 2003 ◆参照設定は、個々に必要です。 ◆参照設定でエラーになる場合は、ｾｷｭﾘﾃｨの設定を、「Visual basic プロジェクトへのアクセスを信頼する」にチェックします。以下、サンプルコード ◆から◆までは、ファイル名です。""で囲みます。 ------ Option Explicit Sub ExcelからExcelを開く() Workbooks.Open ("◆ここにExcelのファイル名.xls◆") End Sub Sub ExcelからWORD文書を開く() ' Microsoft Word Object Libraryへの参照設定が必要 Dim WD As Word.Document Set WD = GetObject("◆ここにWORDのファイル名.DOC◆") WD.Application.Visible = True End Sub ...

AUTOCAD 制御BOX設計

2月 05, 2015

AUTOCADで、サーボアンプの制御用BOXの設計をおこないました。配置の設計で、スペースの無い所に収める要求でしたので、前後扉の構造です。マグネット、ブレーカは、3Dﾃﾞｰﾀがないので、2D DXFなどから作成しました。電力配線のサイズは、AWG4 なので、電線のルートの設計も行いました。サーボアンプ、熱対策で、回生抵抗は上部に配置して、ファンを全面に配置してあります。設計　MDT 2006 画像　DWG TrueView 2013

Illustrator CS2 作成方法（写真から）

2月 04, 2015

イラストレータ　CS2　で、ロゴを作成してみました。少し前に、作成したものがあったので、貼り付けて見ます。 ※作成方法を追加しました。トラの写真をイラストレータで加工しました。作り方を簡単に説明します。この時のトラの素材が、みつからなかったので、素材の選びかたから、、、まず、ホームページの画像検索で、素材を選択します。コントラストがホワイトタイガのほうが、よかったので、ホワイトタイガーで検索。素材をイラストレータに貼り付けます。画像を選択すると、ライブトレースのボタンが有効になります。ライブトレースをクリックしてみます。ここで、背景が黒だと、よくないことに気がつきましたので、素材を変更します。この画像だと、全体的に、模様が出てきます。しきい値　148　　最小エリア　6px　に変更しました。ライブペインのボタンをクリック。画像を右クリックして、「グループ解除」します。これで、パスが、編集可能になります。個別のグループがあるので、それも、個々にグループ解除したり、塗りを変更したり、と、編集して行きます。模様の編集が終わったらグループ化して、その上に円を書きます。両方の図をクリックして、右クリックから、クリッピングマスクをＯＮします。図の外で、クリックすると図形がクリップされます。その後、細かいところを修正して、枠、名前などを編集します。エクスポートで、JPG　を作成します。一番上のロゴマークは、ランサーズのコンペに出展しましたが、選ばれませんでした。写真を、イラストレータで、加工してみたいとは、ずっと、思い続けていたので、念願がかないました。昔乗っていた、バイクもライブトレースしました。やはり、かっこいいバイクです。 AUTOCAD、EXCEL　VBA等も興味がありますが、イラストレータも興味があるので、今後も継続していきたいと思います。フリーのSVG 素材をダウンロードして、文字の編集をしました。