2020/12/06(sun) RelaxTools-Addin Version 4.27.1(RustRemover)

◇機能追加
・背景に文字列を表示して注意喚起する機能です。印刷はされませんので注意。
　「セル結合禁止」は りゅうりゅう(Twitter@blacklist_ryu) さん考案の機能ですが
　便乗して「河野太郎内閣府特命担当大臣」の「機械判読可能なデータの表記方法の統一ルール案」の一部を
　表示する機能として追加しました。

Source/customUI/customUI.xml

@@ -1106,10 +1106,28 @@
           <button id="convertMarkdown.2"  size="large"   image="markdown" label="markdown&#xD;&#xA;変換" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription" onAction="RelaxTools.xlam!ribbonOnAction"  />
         </group>
 
+        <group id="backGroundGroup" label="背景" imageMso="BackgroundImageGallery">
+          <menu id="backGroundMenu" label="背景の&#xD;&#xA;設定" imageMso="BackgroundImageGallery" size="large" itemSize="large" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription" getEnabled="RelaxTools.xlam!getRibbonEnabled" >
+            <menuSeparator id="backGroundSep01" title="一般"/>
+            <button id="backSecret"       imageMso="BackgroundImageGallery" label="機密情報" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backConfidential" imageMso="BackgroundImageGallery" label="Confidential" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backDraft"        imageMso="BackgroundImageGallery" label="draft" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backDeadline"     imageMso="BackgroundImageGallery" label="締め切り厳守" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backGraphPaper"   imageMso="BackgroundImageGallery" label="Excel方眼紙禁止" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backFomula"       imageMso="BackgroundImageGallery" label="数式注意" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <menuSeparator id="backGroundSep02" title="機械判読可能なデータの表記方法"/>
+            <button id="back1cell1data"   imageMso="BackgroundImageGallery" label="１セル１データの原則" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backNoCellJoin"   imageMso="BackgroundImageGallery" label="セル結合禁止" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backNotSpace"     imageMso="BackgroundImageGallery" label="スペースで体裁を整えない" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backNotString"    imageMso="BackgroundImageGallery" label="数値に文字列を含めない" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <button id="backStampAll"     imageMso="BackgroundImageGallery" label="上記すべて" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+            <menuSeparator id="backGroundSep03" title="クリア"/>
+            <button id="backClear"        imageMso="BackgroundImageGallery" label="背景の削除" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
+          </menu>
+        </group>
         <group id="InformationGroup" label="その他" image="countpage">
           <button id="encryptionFileEx" size="large" image="Encrypt"  label="ファイルの&#xD;&#xA;難読化" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription" onAction="RelaxTools.xlam!ribbonOnAction" />
           <button id="excelPage" image="countpage" size="large" label="Word/Excel/PP&#xD;&#xA;ページ数取得" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
-          <button id="stopcelljoin" image="stopcelljoin" size="large" label="背景をセル結合&#xD;&#xA;禁止にする" getSupertip="RelaxTools.xlam!getSupertip" getDescription="RelaxTools.xlam!getDescription"  onAction="RelaxTools.xlam!ribbonOnAction" />
 <!--
           <splitButton id="sushiSplit" size="large" getEnabled="RelaxTools.xlam!getRibbonEnabled" getVisible="RelaxTools.xlam!sushiGetVisible">
             <toggleButton id="sushiShow" image="sushi" label="スシを&#xD;&#xA;流す" supertip="スシをExcelの周囲に流します。" description="スシをExcelの周囲に流します。" getPressed="RelaxTools.xlam!sushiPressed" onAction="RelaxTools.xlam!sushiOnAction"/>

Source/src/Modules/basMacro.bas

@@ -3691,15 +3691,113 @@ e:
     MsgBox "Previewに失敗しました。", vbOKOnly + vbExclamation, C_TITLE
 End Sub
 '--------------------------------------------------------------
-' 背景を「セル結合禁止」にする
+' 背景に文字列を設定する（機密情報）
 '--------------------------------------------------------------
-Sub stopcelljoin()
+Sub backSecret()
+
+    SetBackgroundPicture "backSecret"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（Confidential）
+'--------------------------------------------------------------
+Sub backConfidential()
+
+    SetBackgroundPicture "backConfidential"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（draft）
+'--------------------------------------------------------------
+Sub backDraft()
+
+    SetBackgroundPicture "backDraft"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（締め切り厳守）
+'--------------------------------------------------------------
+Sub backDeadline()
+
+    SetBackgroundPicture "backDeadline"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（Excel方眼紙禁止）
+'--------------------------------------------------------------
+Sub backGraphPaper()
+
+    SetBackgroundPicture "backGraphPaper"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（数式注意）
+'--------------------------------------------------------------
+Sub backFomula()
+
+    SetBackgroundPicture "backFomula"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（１セル１データの原則）
+'--------------------------------------------------------------
+Sub back1cell1data()
+
+    SetBackgroundPicture "back1cell1data"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（セル結合禁止）
+'--------------------------------------------------------------
+Sub backNoCellJoin()
+
+    SetBackgroundPicture "backNoCellJoin"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（スペースで体裁を整えない）
+'--------------------------------------------------------------
+Sub backNotSpace()
+
+    SetBackgroundPicture "backNotSpace"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（数値に文字列を含めない）
+'--------------------------------------------------------------
+Sub backNotString()
+
+    SetBackgroundPicture "backNotString"
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（すべて）
+'--------------------------------------------------------------
+Sub backStampAll()
+
+    SetBackgroundPicture "backStampAll"
+
+End Sub
+'--------------------------------------------------------------
+' 背景の文字列を削除
+'--------------------------------------------------------------
+Sub backClear()
+
+    On Error Resume Next
+
+    ActiveSheet.SetBackgroundPicture filename:=""
+
+End Sub
+'--------------------------------------------------------------
+' 背景に文字列を設定する（共通）
+'--------------------------------------------------------------
+Private Sub SetBackgroundPicture(ByVal Key As String)
 
     Dim file As String
 
     On Error Resume Next
 
-    file = rlxGetAppDataFolder & "images\nocelljoin.png"
+    file = rlxGetAppDataFolder & "images\" & Key & ".png"
 
     ActiveSheet.SetBackgroundPicture filename:=file
 

Version.txt

@@ -1,8 +1,9 @@
-2020/12/06(sun) RelaxTools-Addin Version 4.27.0(RustRemover) 
+2020/12/06(sun) RelaxTools-Addin Version 4.27.1(RustRemover) 
 ◇機能追加
-・背景に「セル結合禁止」をうっすら表示して、セルを結合するなよ～というプレッシャーを与える機能です。
-　解除は、「ページレイアウト」→「背景」の削除で可能です。
-　この機能は Twitter@blacklist_ryu さん考案の機能です。
+・背景に文字列を表示して注意喚起する機能です。印刷はされませんので注意。
+　「セル結合禁止」は りゅうりゅう(Twitter@blacklist_ryu) さん考案の機能ですが
+　便乗して「河野太郎内閣府特命担当大臣」の「機械判読可能なデータの表記方法の統一ルール案」の一部を
+　表示する機能として追加しました。
 
 2020/12/05(sat) RelaxTools-Addin Version 4.26.6(RustRemover) 
 ◇バグ修正