「0.1mm」マクロ

花子 2021 ジャストシステム

マクロ VBA

作成:2024.04.15 by T.A. 編集:2024.04.18 by T.A. トップページ Img1.jpgImg2.jpg

線を 0.1mm にします。

設定対象は選択中の線、または、選択していない場合は「線幅」に設定します。

メニューに組み込んで使います。

「0.1mm」:

!! 処理:選択されている図形の線を0.1mmにする。選択されていなければ線を0.1mmにする。
!! 作成:2023.01.13 by T.A.
!! 編集:2023.01.13 by T.A.
%NA=GetSelectFig(  )
if %NA=nil then
  LinePattern(.線サイズ=5, .任意線サイズ=0.1)
else
  %L=Size(%NA)
  for %I=1 to %L
    ChangeLinePattern(.線サイズ=5, .任意線サイズ=0.1)
  next
end if