Здравствуйте,

У меня получилось решить проблему.
Приведу пример кода:

Здравствуйте,
Помогите пожалуйста решить проблему.

Используя VBA, как можно сохранить исходное форматирование при копировании "текста" в TextBox (shape - text box)?
Например, надо скопирвать предложение, в котором есть слова красного цвета, в TextBox. Таким образом чтобы текст остался прежним.
Текст может быть по разному форматирован, поэтому пробую найти метод используя копирование..

Здравствуйте,

Подскажите пожалуйста как на ленту можно добавить иконку Календаря из надстройки PLEX!

Тема: Как сохранить "Excel shortcut" в .pdf формате используя VBA, в папку в которой он находится. Не в папку файла оригинала.

Привет! Подскажите пожалуйста, как можно сохранить открытый ярлык excel файла (.lnk) ввиде .pdf формата в текущей папке (в той где расположен ярлык, расположение меняется).
Не в папке где находится оригинал.

При помощи vba.
Спасибо. за помощь.

Не удаляются примечания (Comments), исправил макрос следующим образом:

Private Sub OKButt_Click()
 On Error Resume Next
   'If MsgBox("You realy want to clear selected range?", vbQuestion + vbYesNo, "Warning") = vbNo Then Exit Sub
   If ChkContent Then
           Selection.Clear
           Selection.NumberFormatLocal = "General"
           Selection.Font = "Arial"
           Selection.Font.ColorIndex = 0
           Selection.Font.Bold = False
           Selection.Font.Italic = False
           Selection.Font.Underline = False
   End If
   If ChkCondform Then Selection.FormatConditions.Delete
   If ChkBorders Then
       With Selection
           .Interior.ColorIndex = xlNone
           .Borders(xlDiagonalDown).LineStyle = xlNone
           .Borders(xlDiagonalUp).LineStyle = xlNone
           .Borders(xlEdgeLeft).LineStyle = xlNone
           .Borders(xlEdgeTop).LineStyle = xlNone
           .Borders(xlEdgeBottom).LineStyle = xlNone
           .Borders(xlEdgeRight).LineStyle = xlNone
           .Borders(xlInsideVertical).LineStyle = xlNone
           .Borders(xlInsideHorizontal).LineStyle = xlNone
       End With
   End If
  If ChkComments Then Selection.ClearComments
   If ChkMerge Then Selection.MergeCells = False
   If ChkHyper Then
       For Each H In Selection.Hyperlinks
           H.Delete
       Next
   End If
   Unload Me
End Sub

Возникла проблема с € форматом не отображался значок, исправил макрос таким образом чтобы результат был:
10,00 $
10,00 €

Excel стал распознавать € формат как валюта..

Sub Dollar_Format()
   On Error Resume Next
   If TypeName(Selection) <> "Range" Then Exit Sub
  Selection.NumberFormat = "#,##0.00_ [$$-409];[Red]-#,##0.00 [$$-409]"
End Sub

Sub Euro_Format()
   On Error Resume Next
   If TypeName(Selection) <> "Range" Then Exit Sub
  Selection.NumberFormat = "#,##0.00_ [$€-2];[Red]-#,##0.00 [$€-2]"
End Sub

Sub Number_Format()
   If TypeName(Selection) <> "Range" Then Exit Sub
   Selection.NumberFormat = "#,##0"
End Sub