Lisp调整excel文字加粗

admin1

Lisp调整excel文字加粗



(defun $zi-ti-jia-cu$ (xlapp sh-n address lst)
                    ;字体加粗
                    ;($zi-ti-jia-cu$ ($xlapp-New$ NIL nil nil)"数据源" "A1:D9" NIL)
  (vl-catch-all-apply
    'vlax-invoke-method
    (list (vl-catch-all-apply
        'vlax-get-property
        (list (vl-catch-all-apply
            'vlax-get-property
            (list (vl-catch-all-apply
                'vlax-get-property
                (list xlapp 'activeworkbook)
              )
              'Sheets
            )
          )
          'Item
          sh-n
        )
      )
      "Activate"
    )
  )                    ;置顶
  (vl-catch-all-apply
    'vlax-put-property
    (list
      (vl-catch-all-apply
    'vlax-get-property
    (list (vl-catch-all-apply 'msxlp-get-range (list xlapp address))
          "font"
    )
      )
      "FontStyle"
      "加粗"
    )
  )
)