Бегущая картинка

В качестве примера копирования в буфер обмена изображения диапазона приведем следующий код (листинг 5.53). В нем в диапазон А1 вставляется текст, у которого задается стиль шрифта. Затем текст поворачивается на угол 45° и содержимое ячейки копируется в буфер обмена, а потом снова вставляется в документ, но уже как рисунок. После чего рисунок начинает передвигаться по рабочему листу.

Листинг 5.53. Бегущая картинка

Sub RunningPicture()

Dim txt As String, angle As Single, st As Single

Dim pic As Object

txt = "Hello, World!"

angle =45

With Application

.ScreenUpdating = False

With Range("A1")

.Value = txt

.Font.Bold = True

.Font.Color = RGB(233, 113, 229)

.Font.Size = 16

.Orientation = angle

.EntireColumn.AutoFit

.Copy

Set pic = ActiveSheet.Pictures.Paste(Link:=False)

.Clear

With pic

.Top = 0

.Left = 0

End With

End With

.CutCopyMode = False

.ScreenUpdating = True

MsgBox "Start!"

With pic

For st = 0 To 100

.Top = st

.Left = st Next

.Delete

End With

End With

Set pic = Nothing

End Sub

Поиск значения в диапазоне

Метод Find объекта Range производит поиск специфицированной информации в указанном диапазоне и возвращает ссылку на первую найденную ячейку, в которой искомая информация найдена. В случае необнаружения искомых данных метод возвращает значение Nothing.

Find(What, After, Lookln, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

Здесь:

• What — обязательный параметр, задающий искомые данные;

• After — необязательный параметр, указывающий на ячейку, после которой надо производить поиск;

• Lookin — необязательный параметр, специфицирующий, где производить поиск. Допустимыми значениями являются следующие постоянные XlFindLookln:

xlComments, xlFormulas и xlValues;

• LookAt — необязательный параметр, указывающий, как надо искать. Допустимыми значениями являются следующие постоянные xlLookAt:

xlWhole и xlPart;

• D Searchorder — необязательный параметр, задающий порядок просмотра диапазона. Допустимыми значениями являются следующие постоянные XlSearchOrder:

xlByRows и xlByColumns;

• SearchDirection — необязательный параметр, определяющий направление просмотра. Допустимыми значениями являются следующие постоянные XlSearchDirection:

xlNext и xlPrevious;

• MatchCase — необязательный параметр, указывающий, надо ли при поиске учитывать регистр букв;

• MatchByte — необязательный параметр, применяется редко;

• SearchFormat — необязательный параметр, задающий формат поиска.

Например, следующий код производит поиск значения 17 в диапазоне А1:А10. В случае его обнаружения на экране отображается окно с адресом найденной ячейки.

Dim rng As Range

Set rng = Range("A1:A10").Find(What:=17, LookIn:=xlValues)

If Not (rng Is Nothing) Then

MsgBox rng.Address

Else

MsgBox "He найдено значение"

End If

Следующий код (листинг 5.54) производит поиск подстроки "BHV" без учета регистра в диапазоне А1:А10. В случае успешного поиска на экране отображается окно со значением свойства Value обнаруженной ячейки.

Sub DemoFindNoMatchCase()

Dim rng As Range

Set rng - Range("A1:A10").Find(What:="BHV", LookIn:=xlValues, _

LookAt:=xlPart, MatchCase:=False)

If Not (rng Is Nothing) Then

MsgBox rng.Value

Else

MsgBox "He найдено подходящее значение"

End If

End Sub