Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12270 / 13644 ツリー ←次へ | 前へ→

【11409】印鑑ソフト カド 04/3/8(月) 20:29 質問
【11410】Re:印鑑ソフト IROC 04/3/8(月) 20:49 回答
【11413】Re:印鑑ソフト カド 04/3/8(月) 21:09 お礼
【11416】Re:印鑑ソフト りん 04/3/8(月) 21:28 発言
【11417】Re:印鑑ソフト カド 04/3/8(月) 21:39 お礼
【11418】Re:印鑑ソフト カド 04/3/8(月) 22:17 回答

【11409】印鑑ソフト
質問  カド E-MAIL  - 04/3/8(月) 20:29 -

引用なし
パスワード
   ちょっとずうずうしいと思うけど、それでも教えてくれる人がいれば嬉しいです。

1.右クリックにて押印のメニューがでる。
2.そのメニューをクリックするとハンコが貼りつけられる。
3.ハンコは赤の丸の中に当然自分の名前が縦書きで赤字で書かれている。
4.はんこはグループ化されたテキストボックスです。
5.名前はシート1のA1セルに最初から書かれている。
6.シート1は非表示になっていて、使用者には見えない。

こんなのが作りたいのですが、コードを載せてくれる方いないでしょうか?

これがどれくらい難しいことなのか判断できないので、あまりにも無謀でしたら、
マクロを動かすと、A1セルの名前を使用してハンコが貼りつけられるだけで良いです。

【11410】Re:印鑑ソフト
回答  IROC  - 04/3/8(月) 20:49 -

引用なし
パスワード
   ネット上でフリーで提供されているものが結構あると思いますが
使えるものはありませんでしたか?

http://search.yahoo.co.jp/bin/query?p=excel+%a4%cf%a4%f3%a4%b3++%a5%d5%a5%ea%a1%bc%a5%bd%a5%d5%a5%c8&hc=0&hs=0

【11413】Re:印鑑ソフト
お礼  カド E-MAIL  - 04/3/8(月) 21:09 -

引用なし
パスワード
   ▼IROC さん:回答ありがとうございます。

>ネット上でフリーで提供されているものが結構あると思いますが
>使えるものはありませんでしたか?

というか、フリーウェアではなく自作のを使いたいのですが、
残念ながらテキストボックスの扱いが分かりません。

ということで、基本形を教えて頂けないかと。

【11416】Re:印鑑ソフト
発言  りん E-MAIL  - 04/3/8(月) 21:28 -

引用なし
パスワード
   カド さん、こんばんわ

日付印の例ですが
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=9320;id=Excel

【11417】Re:印鑑ソフト
お礼  カド E-MAIL  - 04/3/8(月) 21:39 -

引用なし
パスワード
   ▼りん さん:回答ありがとうございます。
コピペして確認したら、以下でエラーが出てしまいます。
エラー:指定した名前のアイテムが見つかりませんでした。


'コピー元(改めてグループ化)
  Set sr1 = ActiveSheet.Shapes.Range(Array( _
  "Oval 1", "Line 2", "Line 3", "Text Box 6", "Text Box 5", "Text Box 4"))

【11418】Re:印鑑ソフト
回答  カド E-MAIL  - 04/3/8(月) 22:17 -

引用なし
パスワード
   以下で出来ました。

Text Box 8と Oval 18を事前に作っておく。
それぞれの書式を赤色、太字、背景無色等に設定しておく。


Sub Macro2a()

  ActiveSheet.Shapes("Text Box 8").Select
  Selection.Characters.Text = Range("A1").Text


  ActiveSheet.Shapes.Range(Array("Text Box 8", "Oval 18")).Select
  Selection.ShapeRange.Group.Select
  Selection.Copy

  Selection.ShapeRange.Ungroup.Select
  ActiveSheet.Shapes("Text Box 8").Select
  Selection.Characters.Text = ""

End Sub

12270 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free