[[20121219164547]]　『セルに苗字を入力したらその文字を印鑑に』（ａｃｏ）　ページの最後に飛ぶ

『セルに苗字を入力したらその文字を印鑑に』（ａｃｏ）
いつもお世話になります。

Ａ１に吉田と入力したら、
Ｄ１にシャチハタの形の印鑑で吉田と出るようにしたいのですが、
そのようなマクロ、もしくはフリーソフトはありますでしょうか？

エクセル２０００・ウィンドウズＸＰです。

宜しくお願い致します。

 私の回答したところでは下記のようなものでしょうか。
まくろじゃないけど。
[[20050331113740]]　『社員証』（NOB）
　
（みやほりん）

 オブジェクトでも何とかなりそうですが、EXCEL Stamp で検索するといろいろと
 おもしろいもの（アドイン機能など）が見つかりそうです。
 (Mook)

みやほりん様、Ｍｏｏｋ様、ありがとうございます。

Ｋスタンプというフリーソフトをインストールしてみました。
でも、Ｋスタンプのソフトに名前を１こ１こ入力しないと印鑑が出来ませんでした。

エクセルのセルに苗字を入力したら、そのまま印鑑ができあがる。
そんな便利なことってできないでしょうか。
何かしらの手を加えても、あくまでエクセルのセルに入力するだけでできるという形がベストなのですが。。。

 ものが【印鑑】なら、やはり、そこは【本職】のソフトで作成した印鑑のほうが見栄えがいいと思うよ。
 でも、エクセルだけで勝負したいということなら。

 準備

 Ｄ１　に　自分で、円を配置。この円の図形の名前を "MyStamp" とでもしておいて。
 Ｄ１内の位置や大きさ、線の太さを太くしたり細くしたり、線の色も赤や黒や、そこは好みで。
 その円の中に、例えば　"田中"といれて、この文字の円の中の位置や太さや色やフォントも好みのものに。

 こうした上で、シートモジュールに以下。最初に Ａ１を選択してクリアすると印鑑が消える。
 以降は、Ａ１に名前を入れるとその名前の印鑑になるし、Ａ１をクリアすれば消える。

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As String
    Dim sp As Shape

    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    s = Range("A1").Value
    Set sp = Me.Shapes("MyStamp")
    If Len(s) = 0 Then
        sp.Visible = False
    Else
        sp.DrawingObject.Caption = s
        sp.Visible = True
    End If
 End Sub

 (ぶらっと)

印鑑の定義って。。。
(^^；

○に文字(名前)だけでも良いということですかね。。。
文字のフォントも気に入ったのに指定しとけば、自由な文字はこれでいけそうですね。

（oram）

コメント返信：

[ 一覧(最新更新順) ]

[[20121219164547]] 『セルに苗字を入力したらその文字を印鑑に』（ａｃｏ） ページの最後に飛ぶ

[[20121219164547]]　『セルに苗字を入力したらその文字を印鑑に』（ａｃｏ）　ページの最後に飛ぶ