 このサイトはkbDocで作成しました |
 |
|
ネットワークで共有する アイデアプロセッサです HTMの知識は必要ありません コンテンツを作成する人は、内容に集中できます |
|
知識ベースを構築します 業務知識や関連文書はデーターベースに一元化して活用できます 会議資料、計画書・報告書は、相互リンクを保持している事が大切です |
|
サイトを構築できます ツリー構造を基に、Webサイトを構築できます。配色・ロゴ等のデザインや、サイトのメンテナンスからFTPへの同期まで、操作は簡単です |
|
EPubに出力できます 電子書籍に出力すれば、iPad等のリーダーで読むことができます 社内通達・社内報・業務運用マニュアル等で、Epub書籍は今後利用度が高まります |
|
ノード単位で入出力できます 各文書は固有のIDを持っています。ノード単位でエクスポート・インポートを複数回行っても、二重化しないでマージされますので、分散しての作業が可能です |
 |
|
会社の業務マニュアル 複数の部門で並行してページを作成できます 多重参照が可能なので、文書を二重化させないで、対象者別のマニュアルを作成する事ができます |
|
業務知識・製品知識 より専門的な部分は、取引先等で作成してもらいマージする事もできます 製作コストも抑えられ、内容が風化せず、最新の状態を維持できます |
|
自社サイト、又は追加部分 既にサイトをお持ちの場合でも、より詳細な追加ページを自社で作成する事で、経費を抑え、修正が即時に対応できるようになります 新規にサイトを開く場合でも、ある程度自社努力でコンテンツの骨子を作成してから、純粋にデザイン部分だけ外注すると、工数もコストの抑える事ができます |
|
地域振興マップ作り ホテルの施設案内だけではなく、散策コースや、史跡・自然・暮らし・産業等、多くの人の協力で、地域全体のコンテンツを作る事ができます |
|
趣味のガイドブック サイクリング、山歩き、釣りなどエコなスポーツの輪を広げるガイドブックをEpubで作成して情報交換できます |
|
個人で使用 自分の考え等を、文書で表現する能力は、会話能力やプレゼンテーションの能力も向上させます 特に学生の方にお勧めです |
 |
|
kbDocはシェアウェアです \4,500(1ﾗｲｾﾝｽ) です Vectorでお求めになれます 導入サポートも行っています |
エクセルで画像レイアウト
エクセルのカメラ機能
![[image]](pic/1018_001.png)
エクセルで画像をレイアウトしている例です。上が各要素で、下が出力先です
わかりやすいように、上の画像やシェイプをずらして見ます
画像が３つと、画像を仕切るためのシェイプが２つ、それとキャプションを表示するテキストボックスが３つ配置されています
下のカメラツールが出力したシェイプは、指定範囲に見えている部分をリアルタイムで画像として表示しています
これで、下の画像をクリックしてクリップボードに貼り付けると、ワード等のドキュメントで使用できます
エクセルでは、大きい画像をリサイズして、いくつも重ねて肥大化していても、この作業で、無駄のない画像が出来上がります
この画像自体のベクトデーターです
![[image]](pic/1018_002.png)
もうひと工夫
カメラ機能の応用で述べたとおり、カメラツールで出力した図(シェイプ)は、多少劣化するので、少し改善をしてみます
(ただし、画面キャプチャ等を縮小した場合は、メタファイルの機能が生きるので、カメラツールの図(シェイプ)の方が見やすい事があります)
シートの上の部分が、元の素材を配置して、リサイズ等の調整をする範囲です
シートの下の図(シェィプ)が、上の範囲からカメラツールで出力した物です これはあくまでもプレビュー機能として使います
画像を出力する為に、コマンドボタンを配置して、このボタンのクリックイベントに
Private Sub cmClip_Click()
Dim xRng As Range
Set xRng = Me.Range("B3:K13") 'このシートのB3:K13を範囲で定義して
xRng.CopyPicture xlScreen 'この範囲が画面を複写しなさい
End Sub
と記述して下さい (VBAに慣れていたら Rnage("B3:K13").CopyPicture xlScreenの一行でも可です
・・・ ちなみに、B3:K13を範囲指定してコピーして、画像アプリで貼り付けでも同じ結果です
・・・ 毎回、同じ操作なので、ボタンをつけてます
(ただし、画面キャプチャ等を縮小した場合は、メタファイルの機能が生きるので、カメラツールの図(シェイプ)の方が見やすい事があります)
シートの上の部分が、元の素材を配置して、リサイズ等の調整をする範囲です
シートの下の図(シェィプ)が、上の範囲からカメラツールで出力した物です これはあくまでもプレビュー機能として使います
画像を出力する為に、コマンドボタンを配置して、このボタンのクリックイベントに
Private Sub cmClip_Click()
Dim xRng As Range
Set xRng = Me.Range("B3:K13") 'このシートのB3:K13を範囲で定義して
xRng.CopyPicture xlScreen 'この範囲が画面を複写しなさい
End Sub
と記述して下さい (VBAに慣れていたら Rnage("B3:K13").CopyPicture xlScreenの一行でも可です
・・・ ちなみに、B3:K13を範囲指定してコピーして、画像アプリで貼り付けでも同じ結果です
・・・ 毎回、同じ操作なので、ボタンをつけてます
![[image]](pic/1018_003.png)
Clipのボタンを押して、範囲を画像としてクリップボードに貼り付けた後に、画像アプリケーションで取り込むと、きれいにレイアウトされた画像が出来上がります
![[image]](pic/1018_004.png)
エクセルでレイアウトの用途
集合写真の作成用のシートを用意しておくので、毎回同じサイズを使うような場合に、効果的です
例えば、顧客DMや、カタログ・Webページなどで、決められたサイズの中でレイアウトされた画像を作る時に試してみて下さい
例えば、顧客DMや、カタログ・Webページなどで、決められたサイズの中でレイアウトされた画像を作る時に試してみて下さい
もう一つのボタンの機能
レイアウト用に配置した画像やテキストボックス等をまとめて削除する命令です
Private Sub cmDel_Click() 'Delのボタンが押されたら
Dim xShp As Shape
Dim nTp
nTp = cmDel.Top 'ボタンの上位置を記憶しておく
For Each xShp In Me.Shapes 'シートの中のそれぞれの図(シェィプ)について
If xShp.Top < nTp Then ' もし、上位置がボタンの上位置より上にあったら
xShp.Delete 'この図(シェイプ)を削除しなさい
End If
Next
End Sub
Private Sub cmDel_Click() 'Delのボタンが押されたら
Dim xShp As Shape
Dim nTp
nTp = cmDel.Top 'ボタンの上位置を記憶しておく
For Each xShp In Me.Shapes 'シートの中のそれぞれの図(シェィプ)について
If xShp.Top < nTp Then ' もし、上位置がボタンの上位置より上にあったら
xShp.Delete 'この図(シェイプ)を削除しなさい
End If
Next
End Sub