hinekure　Excel-VBAExcel-VBA の へっぽこコード & ExcelGame
Total　 　　Today　 　　Yesterday　

ブログ内検索 :

ブログのフォントを変えてみました。＾＾；

10:37

「￥」が上手く表示出来てませんでした。＾＾；

SheetsとWorksheets

18:36

Bookにグラフシートを数枚挿入して下記コードを実行してみてください。
よくあるサンプルです。＾＾；；

Sub Test()
MsgBox "ワークシート数：" & Worksheets.Count
MsgBox "グラフシート数:" & Charts.Count
MsgBox "シート数：" & Sheets.Count
End Sub

Sheetsだと、グラフシートも含まれます。

PS
挿入できるのはグラフシートだけでは無いですよね。
Excel4.0マクロやMS Excel5.0ダイアログ等、いろいろ挿入してコードを実行すれば違いがより分かると思います。＾＾

シートをコピーしてシート名を変更する

21:45

下記コードは、Sheet1をシート見出しの一番後ろへコピーします。
コピーしたシート名は「hinekure」に変更してます。＾＾；

Sub Test()
Dim WS As Worksheet
With Worksheets("Sheet1")
　　　.Copy after:=Sheets(Sheets.Count)
　　　Set WS = ActiveSheet
　　　WS.Name = "hinekure"
　　　Set WS = Nothing
End With
End Sub

グループ化した画像

19:16

グループ化した画像をweb形式で保存するとExcel2003とExcel2007で保存方法が違ってました。＾＾；

Excel2003では、
グループ化しても保存時には全てのパーツに分解されて保存されます。
分解されたパーツはpng形式で保存され、グループ化した画像はgif形式で保存されます。

Excel2007では、
グループ化された画像だけ保存されます。
グループ化された画像は、png形式とgif形式で保存されます。

保存された時のフォルダ名が同じだったので、フォルダ内も同じ構成かと勝手に思ってました。＾＾；；

やっぱり確かめないと駄目ですね。。。＾＾；；

図形(オートシェイプ)の、最前面・最背面の設定

23:22

上図を参考にしてください。

ニコチャンマークを選択しマクロを実行してください。
最背面に移動します。

正方形・長方形を選択しマクロを実行すると、最背面に移動し、ニコチャンマークが現れます。

Sub Test()
Selection.ShapeRange.ZOrder msoSendToBack
End Sub


その他の設定は、下図を参考にしてください。