PowerPoint VBA - вставить символ с помощью макроса - PullRequest
Новая
       13

PowerPoint VBA - вставить символ с помощью макроса

0 голосов
/ 26 апреля 2018

Я пытаюсь вставить символ в PowerPoint из библиотеки значков FontAwesome. Пример значения Юникода - f001 Вот мой код - 

Sub InsertSymbol()

        Dim txtBox As Shape
        Dim s As String

        s = "f" & "001"

        'Add text box
        Set txtBox = Application.ActivePresentation.Slides(1) _
            .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
                Left:=100, Top:=100, Width:=100, Height:=100)

        'Add symbol to text box
        txtBox.TextFrame.TextRange.InsertSymbol _
            FontName:="FontAwesome", CharNumber:=s, Unicode:=msoTrue

    End Sub

Ошибка - ошибка времени выполнения 13 Тип Misatch. Кто-нибудь может исправить это?

1 Ответ

0 голосов
/ 03 мая 2018

CharNumber требует long - см. здесь .

После небольшого исследования - ваше значение Unicode "F001" необходимо преобразовать из шестнадцатеричного в десятичное. Любой онлайн-конвертер шестнадцатеричного числа в десятичное даст вам соответствующее значение 61441: Преобразователь шестнадцатеричного числа в десятичное .

...