新しいブックで2枚のシートをコピーするマクロを作成したいとします。 新しい作成されたブックのテーマの色は異なります。新しいブックにExcelのテーマカラーをコピーする
Sub Export_File()
Dim Wb3 As Workbook
Dim strSaveName As String
strSaveName = Worksheets("Communication").Range("a2").Value
Set Wb3 = ThisWorkbook
'copy sheets to new workbook
Sheets(Array("Auswertung", "Communication")).Copy
ActiveWorkbook.SaveAs strSaveName
Workbooks(Wb3).Colors = Workbooks(strSaveName).Colors
End Sub
この行は私のために動作しません:
Workbooks(Wb4).Colors = Workbooks(strSaveName).Colors
私はそれが...
挨拶
を助ける必要がある設定WB4 =はThisWorkbookとは何かを持っていると思います
お返事ありがとうございました。しかし、これはブックのカラーパレット/テーマカラーをコピーしません。このコードは私と同じ効果があります。 – Bluesector