| |
▼YY さん：
こんにちは。
>なお、ワークシートではなくフォームには以下のコードで作成できたのですが・・・
シートへのActiveXControlの作成は、マクロの記録を使ってできませんか？
ユーザーフォームの作成方法に似ていますが、
作成されたオブジェクトはOleObjectという型で運用します。
後は、Oleobjectを調べてもらえば概ね分かると思います。
位置やサイズは、Oleobjectのプロパティで設定できます。
Captionは、Objectプロパティを通して指定します。
Sub Macro1()
Dim olelbl As OLEObject
Set olelbl = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1")
With olelbl
.Left = 100
.Top = 100
.Width = 100
.Height = 16
.Object.Caption = "TEST"
.Object.BorderStyle = 1
End With
End Sub
>
>Private Sub CommandButton1_Click()
> Set Mylbl = Controls.Add("Forms.Label.1")
> Mylbl.Left = 18
> Mylbl.Top = 70
> Mylbl.Width = 100
> Mylbl.Height = 10
> Mylbl.Caption = "TEST"
>End Sub
|
|
ichinose
- 11/8/3(水) 16:51 -
