[[20050825143808]]　『オートシェイプの設定』（ｙａｍａ）　ページの最後に飛ぶ

『オートシェイプの設定』（ｙａｍａ）
オートシェイプの矢印を引く時、基準なのか色は黒・太さは０．７５ｐｔなってます｡例えば色を赤・太さを３ｐｔにしたい場合は『オートシェイプの書式設定』を選択し変更していますが、もともとの時点で色が赤・太さが３ｐｔと設定しておきたいのですがどうすれば良いですか｡

[エクセルのバージョン]
Excel2000

 そんなオートシェイプを書いて
右クリック→オートシェイプの規定値
に設定されたらいいと思います。
（SoulMan）

 SoulMan様ありがとうございます｡
申し訳ないのですが、『オートシェイプの規定値』ですとそのエクセルのファイルのみに限られるので、
別の新しいエクセルをたちあげた場合ですと、色が黒・太さは０．７５ｐｔになっているのです｡
なので、基本設定自体を変えたいのですが出来ますでしょうか？
そういう機能は、やはりないのでしょうか？
（ｙａｍａ）

 もっといい方法があるかもしれませんが、ぱっと思いつく方法として
個人用マクロBookにその規定値にしたいオートショイプを一つ書いておきます。
で、それを新規に追加されるBookにコピーして規定値にした後に削除します。
個人用マクロBookの標準モジュールに
Option Explicit
Dim MyClas As New Class1
Sub Auto_Open()
    Set MyClas.Mywb = Application
End Sub
Sub Auto_Close()
    Set MyClas.Mywb = Nothing
End Sub
個人用マクロBookのClassモジュールに
Option Explicit
Public WithEvents Mywb As Application
Private Sub Mywb_NewWorkbook(ByVal Wb As Workbook)
With ThisWorkbook
    If Wb.Name <> .Name Then
        With .Sheets(1)
            If .Shapes.Count > 0 Then
                .Shapes(1).Copy
                With Wb.Sheets(1)
                    .Paste
                    .Shapes(1).SetShapesDefaultProperties
                    .Shapes(1).Delete
                End With
            Else
                MsgBox "基準となるオートシェイプがありません..."
            End If
        End With
    End If
End With
End Sub
として、個人用マクロBookに適当なオートシェイプを一つ書いて個人用マクロBookを
表示しないにしてExcelを終了してください。
以降Excelを起動→新規Bookを追加する度に個人用マクロBookのオートシェイプが
規定値として適用されます。
Excel2000で確認済み
どうでしょうか？
クラスのWithがおかしかったのでちょっと訂正
2005/08/25　18:20
追伸！
新規Bookにこの設定をしてアドインとして保存して活用してもいいかもしれませんね。
（SoulMan）

ありがとうございます
早速つくってみます（ｙａｍａ)

コメント返信：

[ 一覧(最新更新順) ]

[[20050825143808]] 『オートシェイプの設定』（ｙａｍａ） ページの最後に飛ぶ

[[20050825143808]]　『オートシェイプの設定』（ｙａｍａ）　ページの最後に飛ぶ