Создание интерактивных кроссвордов в MS Power Point с использованием VBA

Textbox № 1 в то место таблицы, где № 1

( При необходимости, щелкнув правой кнопкой по боксу и выбрав СВОЙСТВА, можно изменить размер и цвет шрифта)

Удобнее всего ухватившись правой кнопкой за бокс № 1 перетащить его на место бокса № 2 и выбрать копировать – появится бокс № 2 - и т.д.

3 кнопки

- проверить

- очистить

- выход

ПРОВЕРИТЬ – это самая длительная часть работы по созданию кроссворда

«герц»

Оно занимает боксы 2, 3, 4, 5 и пересекается со словом «архимед»

Двойной щелчок по кнопке ПРОВЕРИТЬ

Private Sub CommandButton1_Click()

{ Сюда надо вставить код}

End Sub

Код для слова «герц»:

'2 по горизонтали «герц»

If (TextBox2.Text = "г") And (TextBox3.Text = "е") And (TextBox4.Text = "р") And (TextBox5.Text = "ц") Then

TextBox2.BackColor = RGB(0, 255, 255)

TextBox3.BackColor = RGB(0, 255, 255)

TextBox4.BackColor = RGB(0, 255, 255)

TextBox5.BackColor = RGB(0, 255, 255)

Else

If (TextBox1.Text = "а") Then

TextBox2.Text = ""

TextBox3.Text = ""

TextBox5.Text = ""

Else

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

End If

End If

Разъяснение кода:

If (TextBox2.Text = "г") And (TextBox3.Text = "е") And (TextBox4.Text = "р") And (TextBox5.Text = "ц") Then

TextBox2.BackColor = RGB(0, 255, 255)

TextBox3.BackColor = RGB(0, 255, 255)

TextBox4.BackColor = RGB(0, 255, 255)

TextBox5.BackColor = RGB(0, 255, 255)

Это проверка всех боксов:

Если бокс2 содержит текст «г» И бокс3 – «е» И бокс4 – «р» И бокс5 – «ц» (т.е слово угадано), то делаем цвет фона всех боксов голубым (TextBox2.BackColor = RGB(0, 255, 255)) ...

Else

If (TextBox1.Text = "а") Then

TextBox2.Text = ""

TextBox3.Text = ""

TextBox5.Text = ""

Иначе, если слово «герц» не угадано и в боксе1 буква «а» (т.е слово «архимед» до этого угадано), то очищаем боксы 2,3,5, а бокс 4 не трогаем – в нем буква «р» от слова «архимед»

Else

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

Иначе (слово «герц» не угадано и слово «архимед» тоже не угадано), то чистим все боксы 2,3,4,5.