ＥＸＣＥＬ ＶＢＡ ＣＨＥＣＫＢＯＸの表示名セット

質問

いつもお世話なっています。

久しぶりに質問させて下さい。

EXCEL2000で、業務上での原紙ファイルを作成し、
複数の部署に配布を予定しています。
そして、部署毎に、配布するファイルのシートに入れておく、
CHECKBOXの約３０個に対し、
その表示名(CAPTION)を、部署毎に変更したいので、
マクロにそれを記述しておきたいのです。
（複数の部署毎に、CAPTOINを変えたいからです。
それと毎回内容も変えたいのです。）

いろいろとネットを見てて、
ＶＢＡマクロに記述をすることで可能のようですが、
ちょうどいい参考になる例がなかったので、
教えて下さい。

よろしくお願い致します。

回答No.3

imogasi

下記を標準モジュールに入れて実行。
Sub test01()
Worksheets(1).DrawingObjects.Delete
For i = 1 To 10
Worksheets(1).OLEObjects.Add("Forms.checkbox.1").Select
With Selection
.Left = 100
.Top = (i - 1) * 30 + 20
End With
Worksheets(1).Shapes(i).DrawingObject.Object.Caption = "AAA" & i
Next i
End Sub
で１０個のチェックボックスがシートに出来る。名前は私の勝手で、ＡＡＡｘ（ｘは1から10）
---
このＡＡＡの部分を部署ごとの文字列に変えるのか。
どういう基準で変えるのか。数？それとも何か別の基準？
ーー
質問するならそういう大事なことが質問に書いてないのではないか。
だから何を聞いて居るか他人に判らないのではないか？
シートにコントロールを貼り付けるときも、２種類あるよね。
表示ーツールバーーコントロールツールボックスとフォームの２種類。このどちらか意識してますか。
ーー
３０個ぐらいなら手作業で出来る。
ＶＢＡでやろうとするのは時期尚早では。

回答No.2

keithin

Excelではフォームのチェックボックスとコントロールツールボックスのチェックボックスの２種類を利用できますが，今回はコントロールツールボックスのチェックボックスを利用することにします。
シート１にチェックボックスが30個が配置済みとします

そのcaptionを変更したいということですが，具体的な記載内容の準備の方法に特に指定がないので，ごく簡単にシート２のA1からA30まで順に30個記入しておくこととします。

作成例：
sub macro1()
　dim o
　dim i
　for each o in worksheets("Sheet1").oleobjects
　　if typename(o.object) = "CheckBox" then
　　i = i + 1
　　o.object.caption = worksheets("Sheet2").cells(i, 1)
　　end if
　next
end sub

大体こんなカンジを下敷きにして，「その他の差し替え用データ組の用意」とか「具体的にどのデータ組に差し替えるのかどうやって指定する」とか，どのチェックボックスがどの差し替えデータに対応とか，作り込んでみてください。

回答No.1

noname#157410

マクロの前に差し込み印刷覚えたらいいと思います

言っていることが、ちょっとつかみにくかったので、EXCELの標準機能にありますよ。

私が思っていることとは、違うことを言っているのでしょうか？

補足

さっそくとありがとうございます。

でも、やりたいことが違います・・・