目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

264 / 277

←次へ　｜　前へ→

【14】つづき

ぴかる - 02/9/2(月) 21:20 -


	引用なし

	パスワード

　　Set myCBCtrl = myCB.Controls.Add(Type:=msoControlPopup)
　　myCBCtrl.Caption = "文字変換"
　　　　
　　 Set myCBCtrl = myCB.Controls("文字変換").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .FaceId = 984
　　　　 .Caption = "操作説明"
　　　　 .Style = msoButtonIconAndCaption
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "文字変換操作説明"
　　　　Else
　　　　 .OnAction = "文字変換操作説明97"
　　　　End If
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("文字変換").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "・全角"
　　　　 .OnAction = "全角"
　　　　 .BeginGroup = True
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("文字変換").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "・半角"
　　　　 .OnAction = "半角"
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("文字変換").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "・大文字"
　　　　 .OnAction = "大文字"
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("文字変換").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "・小文字"
　　　　 .OnAction = "小文字"
　　 End With
　　　
　　Set myCBCtrl = myCB.Controls.Add(Type:=msoControlPopup)
　　myCBCtrl.Caption = "小ワザ集"
　　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "コピー・貼り付け"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技コピー貼り付け"
　　　　Else
　　　　 .OnAction = "小技97コピー貼り付け"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "文字表示"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技文字表示"
　　　　Else
　　　　 .OnAction = "小技97文字表示"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "表示形式"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技表示形式"
　　　　Else
　　　　 .OnAction = "小技97表示形式"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "[Shift][Ctrl]キー"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技シフトコントロール"
　　　　Else
　　　　 .OnAction = "小技97シフトコントロール"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "関数"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技関数"
　　　　Else
　　　　 .OnAction = "小技97関数"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "条件付き書式"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技条件付き書式"
　　　　Else
　　　　 .OnAction = "小技97条件付き書式"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "入力規則"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技入力規則"
　　　　Else
　　　　 .OnAction = "小技97入力規則"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "セルの保護"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技セルの保護"
　　　　Else
　　　　 .OnAction = "小技97セルの保護"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "データベース"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技データベース"
　　　　Else
　　　　 .OnAction = "小技97データベース"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "マクロ"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技マクロ"
　　　　Else
　　　　 .OnAction = "小技97マクロ"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　 Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
　　　　.Add(Type:=msoControlButton)
　　 With myCBCtrl
　　　　 .Caption = "おまけ"
　　　　If Val(Application.Version) <> 8 Then
　　　　 .OnAction = "小技おまけ"
　　　　Else
　　　　 .OnAction = "小技97おまけ"
　　　　End If
　　　　 .FaceId = 984
　　 End With
　　　
　　Set myCBCtrl = myCB.Controls.Add(Type:=msoControlButton)
　　With myCBCtrl
　　　　.Style = msoButtonCaption
　　　　.Caption = "元に戻す"
　　　　.OnAction = "元に戻す"
　　End With
　　　　
　　myCB.Visible = True

　 Set myCB = Nothing: Set myCBCtrl = Nothing: Set myCBBtn = Nothing: Set myCBpup = Nothing

End Sub

5,846 hits