ferias
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sub M_1()
Dim i As Long, ind As String, c As Range
ind = Application.InputBox(Prompt:="", _
Title:="На сколько единиц изменить размер?", Default:="-1", Type:=1)
For Each c In Selection.Cells
If CDec(Len(c.Value)) = 0 Then
Else
If ind = False Then Exit Sub
For i = 1 To CDec(Len(c.Value))
With c.Characters(Start:=i, Length:=1).Font
.Size = .Size + CDec(ind)
End With
Next i
End If
Next
End Sub
|
Всего записей: 39 | Зарегистр. 28-06-2007 | Отправлено: 01:06 23-06-2010 | Исправлено: ferias, 01:33 23-06-2010 |
|
