Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как поменять цвет текста Флажка - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как поменять цвет текста Флажка (Макросы/Sub)
Как поменять цвет текста Флажка
rever27 Дата: Воскресенье, 02.08.2015, 16:27 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
[vba]
Код
ActiveSheet.CheckBoxes.Add(4414498.5, 3557294.25, 249514.5, 207376.5).Select
Selection.Characters.text = "флажок"
[/vba]
Создать данный флажок получается. Но как сделать его цвет отличным от черного?
 
Ответить
Сообщение[vba]
Код
ActiveSheet.CheckBoxes.Add(4414498.5, 3557294.25, 249514.5, 207376.5).Select
Selection.Characters.text = "флажок"
[/vba]
Создать данный флажок получается. Но как сделать его цвет отличным от черного?
Автор - rever27
Дата добавления - 02.08.2015 в 16:27
alex77755 Дата: Понедельник, 03.08.2015, 09:02 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

[vba]
Код
Private Sub CommandButton2_Click()
Dim Q
   Set Q = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
         DisplayAsIcon:=False, Left:=119.25, Top:=75.75, Width:=109.5, Height _
         :=19.5)
         Q.Name = "CheckBox1"
         Set Q = ActiveSheet.Shapes("CheckBox1")
         Q.OLEFormat.Object.Object.ForeColor = RGB(0, 0, 255)
End Sub
[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
Сообщение[vba]
Код
Private Sub CommandButton2_Click()
Dim Q
   Set Q = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
         DisplayAsIcon:=False, Left:=119.25, Top:=75.75, Width:=109.5, Height _
         :=19.5)
         Q.Name = "CheckBox1"
         Set Q = ActiveSheet.Shapes("CheckBox1")
         Q.OLEFormat.Object.Object.ForeColor = RGB(0, 0, 255)
End Sub
[/vba]
Автор - alex77755
Дата добавления - 03.08.2015 в 09:02
Karataev Дата: Вторник, 04.08.2015, 05:22 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
rever27 напишите,какие вы делаете действия,чтобы изменить цвет текста флажка без использования макросов,просто вручную.


Сообщение отредактировал Karataev - Вторник, 04.08.2015, 05:29
 
Ответить
Сообщениеrever27 напишите,какие вы делаете действия,чтобы изменить цвет текста флажка без использования макросов,просто вручную.
Автор - Karataev
Дата добавления - 04.08.2015 в 05:22
rever27 Дата: Вторник, 04.08.2015, 08:28 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Karataev, Вручную его цвет не изменяется (либо я просто не знаю, как это сделать). Возможен только через OLEObjects, кодом которого поделился alex77755, выше )
 
Ответить
СообщениеKarataev, Вручную его цвет не изменяется (либо я просто не знаю, как это сделать). Возможен только через OLEObjects, кодом которого поделился alex77755, выше )
Автор - rever27
Дата добавления - 04.08.2015 в 08:28
Karataev Дата: Вторник, 04.08.2015, 10:45 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
rever27 если вручную нельзя изменить цвет, то и с помощью макроса тоже нельзя. alex77755 предлагает использовать флажок-activex, а вы вставляете флажок-форму


Сообщение отредактировал Karataev - Вторник, 04.08.2015, 10:45
 
Ответить
Сообщениеrever27 если вручную нельзя изменить цвет, то и с помощью макроса тоже нельзя. alex77755 предлагает использовать флажок-activex, а вы вставляете флажок-форму
Автор - Karataev
Дата добавления - 04.08.2015 в 10:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как поменять цвет текста Флажка (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!