VBNet - Форум - Можно ли при помощи VBA вызвать меню Format->...

Вопрос: Можно ли при помощи VBA вызвать меню Format->... Добавлено: 20.10.03 15:55

Автор вопроса: Spin

Добрый день товарищи! Продолжая возник вопрос - можно ли из VBA вызвать меню форматирования текста.
То есть например юзер один текст хочет заменить другим и еще выбрать величину щрифта, цвет и тд , то есть чтоб появилась меню Format->Font
И еще вопрос - напанели инструментов возможно поместить свою кнопку при помощи VBA ?
Спасибо заранее!

Ответить

Ответы Всего ответов: 8

Номер ответа: 1
Автор ответа:

dedtolya

Вопросов: 0
Ответов: 39

Профиль | | #1

Добавлено: 20.10.03 16:50

Sub УстКнопку()

Set cb = Application.CommandBars("Formatting")

With cb

Set cc = cb.Controls.Add(msoControlButton, , , , True)

With cc

.Caption = "Жми меня" 'надпись на кнопке

.OnAction = "Расчет" 'имя макроса

.Style = msoButtonCaption 'тип кнопки

End With

cb.Visible = True

End With

End Sub

dedtolya

Ответить

Номер ответа: 2
Автор ответа:

Spin

Вопросов: 4
Ответов: 11

Профиль | | #2

Добавлено: 20.10.03 18:27

2dedtolya

Спасибо! Кнопка добавляется/удаляется на ура

Вопрос по поводу Format->Font остается в силе, пока не понял как надо сделать.

Ответить

Номер ответа: 3
Автор ответа:

Spin

Вопросов: 4
Ответов: 11

Профиль | | #3

Добавлено: 20.10.03 19:34

Такс! Разобрался как вызывать эту настройку Format->Font,

но как узнать о выбранных значениях пока не знаю.

В общем думаю дальше.

Если кто-то сможет помочь - Велкам!

Ответить

Номер ответа: 4
Автор ответа:

dedtolya

Вопросов: 0
Ответов: 39

Профиль | | #4

Добавлено: 21.10.03 11:34

Sub FormaDemo()

Range("C3:D11").Select ' выделяем ячейки

Selection.FormulaR1C1 = "Форматируем ячейки" 'что-то заносим

'выравнивание

With Selection

.HorizontalAlignment = xlLeft

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

'рамка(обрамление)

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

'фонт

With Selection.Font

.Bold = True 'фонт жирный

.Italic = True 'курсив

.Underline = xlUnderlineStyleSingle 'подчеркнем

.Name = "Arial Cyr"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.ColorIndex = 45

End With

'заливка

With Selection.Interior

.ColorIndex = 4

.Pattern = xlSolid

End With

End Sub

Sub СвойстваАктЯч()

'шрифт (наименование, размер, цвет)

With ActiveCell.Font

MsgBox .Name & " " & .Size & " " & .ColorIndex

End With

Мне кажеться, что Вы уже начитаете догадываться, что имеется справка к VBA

Успехов dedtolya

End Sub

Ответить

Номер ответа: 5
Автор ответа:

Spin

Вопросов: 4
Ответов: 11

Профиль | | #5

Добавлено: 21.10.03 19:54

спасибо!

да догадываться начал но после МСДН а это справка смотрится как сделанное через задницу убогое нечно ...невнятные повторяющиеся примеры , остуотсвие нормального Browser'a

Просто блевать тянет , извините за мой французский

Ответить

Номер ответа: 6 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #6	Добавлено: 22.10.03 13:06
	Я за MSDN горой! Хотя согласен, оформлен MSDN для VS 6 очень гм... некрасиво. Другое дело - свежие версии для VS .NET, прям душа радуется! Ответить