親コンテナのBackColor取得 (ID:88909)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じかな？ コンテナが無い場合は、そのコントロール自身の背景色になります Private Sub Command1_Click() Dim obj As Object Set obj = GetContainer(Text1) Debug.Print Hex(obj.BackColor) End Sub Private Function GetContainer(obj As Object) As Object If obj.Container.Name = Me.Name Then Set GetContainer = obj Else Set GetContainer = GetContainer(obj.Container) End If End Function