ferias
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Private Sub Aumentar() Dim r As Variant r = 2' по желанию можно изменить 2 на любое другое число Call alterar_1(r) End Sub Private Sub Diminuir() Dim r As String r = "-2"' по желанию можно изменить 2 на любое другое число Call alterar_1(r) End Sub Private Sub Alterar_altura() Dim i As Long, r As String, c As Range r = Application.InputBox(Prompt:="", _ Title:="На сколько едениц изменить размер?", Default:="-1", Type:=1) Call alterar_1(r) End Sub Private Sub alterar_1(r) Dim i As Long, c As Range For Each c In Selection.Cells If CDec(Len(c.Value)) = 0 Then Else If r = False Then Exit Sub For i = 1 To CDec(Len(c.Value)) With c.Characters(Start:=i, Length:=1).Font .Size = .Size + CDec(r) End With Next i End If Next End Sub | Всего записей: 39 | Зарегистр. 28-06-2007 | Отправлено: 02:35 24-06-2010 | Исправлено: ferias, 03:08 24-06-2010 |
|