Вышивка: машинная. Декорировать: одежду. Материал изделия: хлопок. Количество изделий: 1 шт. Размер вышивки: 40 см². Нужно две нашивки и две вышивки на одной футболке (текст).
Для работы. Объяснить синтаксис приведенного ниже макроса (вставляет фото из папки в таблицу ворд). 'Выбор файла Sub Фото таблицей() With Application.FileDialog(msoFileDialogFilePicker) .Title = "Выбор фотографий" .Filters.Add "Изображения", "*.jpg; *.jpeg" .AllowMultiSelect = True If .Show = -1 Then InsertPhotos .SelectedItems End If End With End Sub 'Вставка фотографий Sub InsertPhotos(ByVal items As Variant) Dim fileName As Variant Dim counter As Integer, row As Long, col As Long counter = 1: row = 1: col = 1 Dim oTbl As Table Dim pic As InlineShape 'Параметры страницы With ActiveDocument.PageSetup End With 'Таблица с невидимыми границами для размещения фотографий Set oTbl = ActiveDocument.Tables.Add(Selection.Range, 2, 2) oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter oTbl.Range.ParagraphFormat.SpaceAfter = 3 oTbl.Range.Font.Size = 8 FormatTableRow oTbl, row 'Перебор выбранных файлов For Each fileName In items If (counter > 2) And (counter Mod 2 <> 0) Then oTbl.Rows.Add oTbl.Rows.Add col = 1 row = row + 2 FormatTableRow oTbl, row End If 'Вставка изображения Set pic = oTbl.Cell(row, col).Range.InlineShapes.AddPicture(fileName) With pic .Width = CentimetersToPoints(8) .Height = CentimetersToPoints(6) With .Line .Style = msoLineThinThin .ForeColor.TintAndShade = 1 .Weight = 0.5 .DashStyle = msoLineSolid End With End With 'Подпись к изображению oTbl.Cell(row + 1, col).Range.Text = "Ôîòî ¹" + CStr(counter) col = col + 1 counter = counter + 1 DoEvents Next End Sub 'Форматирование строки для фотографий Sub FormatTableRow(oTbl As Table, row As Long) With oTbl.Rows(row) .HeightRule = wdRowHeightAtLeast .Height = 0 .Range.ParagraphFormat.SpaceAfter = 0 End With End Sub.
Как я могу найти новых учеников рядом с м. Девяткино на вашей платформе?
Вы можете начать с создания профиля, в котором подробно описываете свой опыт и предметы, которые вы преподаёте. Укажите свои квалификации и специализации, чтобы откликаться на уже существующие заявки или ученики могли легко вас найти
Какие требования к квалификации преподавателей?
На нашем сайте мы приветствуем преподавателей с различным уровнем квалификации. Однако некоторые предметы или уровни могут требовать профессионального образования или сертификатов
Есть ли возможность преподавать только в выходные или в свободное время?
Конечно, вы можете устанавливать свой график занятий согласно вашим личным предпочтениям и доступности. Это позволяет гибко подходить к организации вашей рабочей нагрузки
Как происходит процесс оплаты занятий и можно ли установить стоимость своих услуг?
Оплата проводится напрямую между вами и учениками. Вы можете самостоятельно устанавливать стоимость своих услуг в вашем профиле. В среднем вы сможете заработать от 460.59 рублей с занятия
Как обеспечивается безопасность на платформе?
Мы прилагаем все усилия для обеспечения безопасности наших пользователей, включая верификацию профилей и предоставление возможности оставлять отзывы о работе преподавателей