Coreldraw VBA добавляет строки вместе в назначении цвета - PullRequest
Новая
       24

Coreldraw VBA добавляет строки вместе в назначении цвета

0 голосов
/ 06 марта 2019

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

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(" & R & ", " & G & ", " & B & ", " & "), Style:=OutlineStyles(TextBox5.value), DashDotLength:=(TextBox6.value), PenWidth:=(TextBox7.value), BackColor:=CreateRGBColor(255, 255, 255)

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

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

Любая помощь очень ценится Mark

...