, , . .
10.9.1. /
, (. 10‑16).
. 10‑16.
, PasteFace, ( ). , , . :
1) ,
2) , ,
3) ,
4) ,
5) VBA :
Sub ()
Dim PlusButton As CommandBarButton
Dim MyBar As CommandBar
'1. :
Set MyBar = Application.CommandBars.Add
With MyBar
. Visible = True'
. Name = " " '
. Position = msoBarTop '
End With
'2. ( _
):
ActiveSheet.Shapes.AddShape(msoShapeFlowchartOr, _
337.5, 77.25, 94.5, 94.5).Select
Selection.ShapeRange.Line.Weight = 6#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.Cut '-
'3. :
Set PlusButton = MyBar.Controls.Add(Type:=msoControlButton)
' :
PlusButton. Style = msoButtonIconAndCaption
' :
PlusButton. Caption = " "
' :
PlusButton. PasteFace
' :
PlusButton. Enabled = True
' :
PlusButton. OnAction = ""
End Sub
:
(.. ), , , .
: .xls . , .
:
Sub ()
For Each Bar In Application.CommandBars
If Bar.Name = " " Then
Bar.Delete
|
|
|
Exit For
End If
Next
End Sub
: .xls . , .
10.9.2. /
, ( ).
. 10‑17.
:
Sub ()
Set myMenuBar = CommandBars("Worksheet Menu bar")
'1. :
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
'2. :
newMenu. Caption = " "
'3. :
Set ctrl1 = newMenu.Controls _
.Add(Type:=msoControlButton, ID:=1)
'4. :
ctrl1. Style = msoButtonCaption
'5. :
ctrl1. Caption = " "
'6. :
ctrl1. TooltipText = " "
'7. :
ctrl1. OnAction = ""
End Sub
: .xls . , .
:
Sub ()
Set myMenuBar = CommandBars("Worksheet Menu bar")
For Each In myMenuBar.Controls
If .Caption = " " Then
.Delete
Exit For
End If
Next
End Sub
: .xls . , .
