Блог

Главная - Вопросы по программированию - Coreldraw VBA, объединяющий строки при назначении цвета

Coreldraw VBA, объединяющий строки при назначении цвета

#vba #string #data-manipulation #coreldraw

#vba #строка #манипулирование данными #coreldraw

Вопрос:

Я уверен, что делаю здесь что-то глупое, но я не могу заставить следующее работать. У меня есть следующая строка кода

 ActiveSelectionRange.ApplyCustomHatchFill ANG.value, LS.value, 0, 10, 0, LT.value, CreateRGBColor(255,255,255), Style:=OutlineStyles(TextBox5.value), DashDotLength:=(TextBox6.value), PenWidth:=(TextBox7.value), BackColor:=CreateRGBColor(255, 255, 255)

Я пытаюсь заменить следующую часть переменными

 CreateRGBColor(255,255,255)

с помощью следующего

  a = colbut.BackColor
 R = a Mod 256
 G = Int(a / 256) Mod 256
 B = Int(a / 256 / 256) Mod 256

ActiveSelectionRange.ApplyCustomHatchFill ANG.value, LS.value, 0, 10, 0, LT.value, CreateRGBColor(" amp; R amp; ", " amp; G amp; ", " amp; B amp; ", " amp; "), Style:=OutlineStyles(TextBox5.value), DashDotLength:=(TextBox6.value), PenWidth:=(TextBox7.value), BackColor:=CreateRGBColor(255, 255, 255)

Он продолжает выдавать ошибку «Неправильное количество аргументов или недопустимое присвоение свойства»

Я перепробовал все варианты добавления строк, но безрезультатно

Любая помощь приветствуется, Отметьте

Комментарии:

1. CreateRGBColor(" amp; R amp; ", " amp; G amp; ", " amp; B amp; ", " amp; ") должно быть CreateRGBColor(R, G, B) предполагается, что переменные в VBA похожи на число, поэтому вы должны делать так, как если бы они были числами

2. Ого!!! я же говорил тебе, что веду себя глупо, Спасибо за сохранение