2014-06-28から1日間の記事一覧
Sub testsave() Dim bSaveFlg As Boolean Dim sShapeName As String Dim sSavePath As String Dim iCount As Integer Dim sPath As String sSavePath = "C:\test\" For Each c In Selection sShapeName = c.Name iCount = iCount + 1 sPath = sSavePath & St…
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'エビデンスフォルダ作成用スクリプト ' '要適宜変更箇所:strDefFilePath(エビデンスフォルダを作成するためのトップディレクトリ) ' strCreateFolderPath(作成したい…