エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20050825143808]]: #score: 6703; @digest: 9d9aea29502c4ca711622bb384cd6820; @id: 16430; @mdate: 2005-08-26T05:38:03Z; @size: 2321; @type: text/plain; #keywords: ロbo (27342), ・太 (16310), myclas (15241), 黒・ (9447), 用マ (6806), 降ex (6721), 人用 (6527), 赤・ (5812), mywb (4781), トシ (4359), シェ (4064), ェイ (3828), 伸! (3769), 定値 (3311), 規定 (3309), イプ (3151), 正20 (2788), 動→ (2763), 規bo (2536), ョイ (1946), 個人 (1823), なオ (1703), オー (1649), て個 (1560), つ書 (1357), にop (1351), shapes (1323), 認済 (1222), book (1222), soulman (984), 追伸 (668), 新規 (642); 『オートシェイプの設定』（yama）
オートシェイプの矢印を引く時、基準なのか色は黒・太さは0.75ptなってます。例えば色を赤・太さを3ptにしたい場合は『オートシェイプの書式設定』を選択し変更していますが、もともとの時点で色が赤・太さが3ptと設定しておきたいのですがどうすれば良いですか。 [エクセルのバージョン] Excel2000 ---- そんなオートシェイプを書いて右クリック→オートシェイプの規定値に設定されたらいいと思います。（SoulMan） ---- SoulMan様ありがとうございます。申し訳ないのですが、『オートシェイプの規定値』ですとそのエクセルのファイルのみに限られるので、別の新しいエクセルをたちあげた場合ですと、色が黒・太さは0.75ptになっているのです。なので、基本設定自体を変えたいのですが出来ますでしょうか? そういう機能は、やはりないのでしょうか? （yama） ---- もっといい方法があるかもしれませんが、ぱっと思いつく方法として個人用マクロ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） ---- ありがとうございます早速つくってみます（yama) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200508/20050825143808.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ