![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
フォームにコマンドボタン(Command1)を配置し、そのボタンを押したら、"C:\My Documents\book1.xls"の"Sheet1"にあるShapesオブジェクトのNameをすべて返すコードの例を考えてみました。
なお、この例ではコントロールツールボックスのテキストボックスの名前も図形描画のテキストボックスの名前も返してきます。
確認しましたが、図形描画のテキストボックス名はデフォルトの場合、シート上の名前ボックスでの表示が"テキスト 1"などとなっていても、返ってくる値が"Text Box 1"となりました。
コントロールツールボックスのテキストボックスは"TextBox1"と返してきます。
名前を指定するとその名前で返ってきますので、名前付けに定義を設けるか、デフォルトの場合はスペースの位置などで判別可能と思われますがいかがでしょう。
Option Explicit
Dim wkbObj As WorkBook
Private Sub Form_Load()
Set wkbObj = GetObject _
("C:\My Documents\book1.xls")
End Sub
Private Sub Command1_Click()
Dim myShape As Excel.Shape
With wkbObj.Sheets(1)
For Each myShape In .Shapes
MsgBox myShape.Name
Next
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set wkbObj = Nothing
End Sub
なお、参照設定で、Microsoft Excel X Object Library への参照を設定する必要があります。Xの所にはバージョンの数値が入ります。
VB6.0 Excel2000 Win2000 にて動作確認
動作しました。助かりました。
いろいろ調べてはいたのですが、なかなか必要とする情報が
なくて半分あきらめて別の方法を考えようかと思っていた所でした。
名称さえ取得できればあとはOKです。
図形描画などの判断はTTakさんの「名前付けに定義を・・・」を参考にさせていただきます。
いや~本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- Visual Basic(VBA) Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。 3 2023/03/19 18:31
- JavaScript javascriptのちょっとした動作不良(原因は突き止めたのですが) 1 2023/06/15 19:58
- Visual Basic(VBA) ActiveReportのdetailをデータセットの自動バインドを使って帳票を出力しています。 1 2023/08/16 07:16
- IT・エンジニアリング ActiveReportのdetailをデータセットの自動バインドを使って帳票を出力しています。 1 2023/08/16 07:17
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- Access(アクセス) アクセス IDが空白の時、メッセージボックスがでるようにするには 1 2022/08/04 11:06
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- PDF PDFのテキストを追加機能 1 2022/06/18 12:45
- 工学 非対称三相交流について 2 2022/07/06 00:36
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
テキストボックスの番号の取得
Visual Basic(VBA)
-
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
エクセルVBAでテキストボックスの値の取得と変更について
Visual Basic(VBA)
-
-
4
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
7
テキストボックスの名前に変数をつける
Visual Basic(VBA)
-
8
任意で選択したセルをテキストボックスに表示
Excel(エクセル)
-
9
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
10
フォーム上の現在アクティブなコントロールの取得
Access(アクセス)
-
11
TextBoxコントロールを引数として渡すには?
その他(教育・科学・学問)
-
12
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
13
エクセル・VBA CheckBoxのオブジェクト名に変数を使うことは可能でしょうか?
Excel(エクセル)
-
14
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
15
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
16
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
17
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
18
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
-
19
VBAでテキストボックス内の編集をする方法
Visual Basic(VBA)
-
20
変数をコントロール型で使用する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックス(VBA)でEnter...
-
DataGridViewで行の展開みたい...
-
VB.NETで縦書表示をしたいので...
-
MFCでbitmapを背景にしてstatic...
-
エクセル入力規制リスト行数
-
Enabled=Falseのテキストボック...
-
VBからエクセルのテキストボ...
-
VB2005 コードでのコントロー...
-
デザインモードを解除すると消...
-
lbl.Caption の意味
-
エクセルの画像にツールチップ...
-
VB6でLabelの最前面にText Box...
-
Wordテキストコントロールが未...
-
コンボボックスの高さを変更し...
-
WORD □ レ点(その2)
-
Excelのワークシートでのコンボ...
-
ADOのCursorLocationプロパティ
-
C#でユーザコントロールのプロ...
-
ユーザーフォームに日付を表示...
-
データベースから情報の取得・...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックス(VBA)でEnter...
-
エクセルの画像にツールチップ...
-
ADOのCursorLocationプロパティ
-
Wordテキストコントロールが未...
-
ACCESS2010 ActiveXコントロー...
-
VBからエクセルのテキストボ...
-
C# TEXTが空白であるLABELは何...
-
VB.NETで縦書表示をしたいので...
-
チェックボックスの文字色の変え方
-
DataGridViewで行の展開みたい...
-
ユーザーフォームに日付を表示...
-
コンボボックスの高さを変更し...
-
C# アプリ終了時に設定を記憶...
-
デザインモードを解除すると消...
-
VB6でLabelの最前面にText Box...
-
Enabled=Falseのテキストボック...
-
MSFlexGrid
-
PictureBoxの背景色変更(VB.NET)
-
checkbox付きListViewで デフ...
-
エクセル入力規制リスト行数
おすすめ情報