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

ブログ内検索 :

ワードアートスタイル

18:56

(=μ_μ)σ│モジモジ･･･
をワードアートで作ってみました。
ワードアートスタイルは、 塗りつぶし(グラデーション)-アクセント1 です。
図1です。

しかし、、、
ワードアートスタイルを、塗りつぶし(グラデーション)-アクセント4,反射だと
図2になります。
塗つぶし-アクセント1,面取り(メタル),反射
塗つぶし-アクセント1,面取り(プラスティック),反射
も同じです。

σは、シグマなので何とか納得出来ます。
μは、マイクロなのに、M になります。
なんでだろう。。。
マイクロの頭文字のMなのかな。。。

それともいつもの大チョンボかな。＾＾；；

あのCell_雀の武藤氏が今度は、、、

01:21

新VBAエキスパート公式テキスト Access VBA Basic　を執筆しました。！

5/22 AM10:00より、アオテンストアにて先行予約の受付を開始、5/29より販売を開始する予定。

詳細は
↓
http://gen2.exblog.jp/

をご覧ください。＾＾

「信頼できる場所」ってのがあるのですね。。。

19:17

マクロが書かれているBookは、基本的に Excelマクロ有効ブック(xlsm)
として保存しますよね。

マクロのセキュリティの設定は
　「警告を表示してすべてのマクロを無効にする」
にされてる方が多いと思います。

マクロ有効ブックを開くと
　セキュリティの警告　マクロが無効にされました。[オプション]
と表示されます。
[オプション]をクリックし、セキュリティ オプションのダイアログから
　「このコンテンツを有効にする」
を選択するとマクロ有効ブックが使用出来る様になりますよね。

ところが、、、
「信頼できる場所」に保存すると「Excelマクロ有効ブック」は無条件で開けました。
※無条件というのは、セキュリティの警告が出ないという事です。


信頼できる場所の設定方法です。
もっと簡単な手順があるかもしれません。。。
その時はご容赦を。m(_ _)m

テストなのでデスクトップで試してみました。＾＾；
マクロ有効ブックは用意して下さい。拡張子が xlsm なら何でも良いです。

1)デスクトップにフォルダを作成します。フォルダ名はご自由に。
　※ここでは、フォルダ名を「TEST」とします。
2)新しくExcel2007を開いて下さい。
3)Officeボタン → [Excelのオプション] → セキュリティセンター →
[セキュリティセンターの設定] → 信頼できる場所 → [新しい場所の追加] →
[参照] → デスクトップのTESTフォルダを参照 してください→ [OK] → [OK] → [OK]
4)Excel2007を閉じて下さい。
5)用意したマクロ有効ブックをデスクトップに作成したTESTフォルダに移動して下さい。
これで完了です。

TESTフォルダの中のマクロ有効ブックを開くと、、、
セキュリティの警告が出なくなります。
でも、マクロは実行できます。
暇な方は試してみて下さい。＾＾；；

因みに、、
マクロのセキュリティの設定を
　「警告を表示せずにすべてのマクロを無効にする」
に設定していても、マクロを実行する事が出来ました。

Offset

17:31

こんな使い方はしないと思います。
しかし、、、
どこまで出来るのかな。＾＾；；

Sub Test()
Range("A1").Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0). _
Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Offset(1, 0).Select
End Sub

セル範囲を画像に

14:58

下記コードはSheet1を対象にしてます。

Sub Test()
Dim WS As Worksheet
Dim myRng As Range

Set WS = Worksheets.Item("Sheet1")
Set myRng = WS.Range("B2:C3")
With myRng
　　　myRng.Value = "ABC"
　　　myRng.CopyPicture
End With
With WS.Range("E2")
　　　.Select '---(1)
　　　.Parent.Pictures.Paste
End With
End Sub

(1)選択してないと、アクティブセルに貼り付けられます。＾＾；

※CopyPicture メソッド
・CopyPicture メソッドを Range オブジェクトに指定した場合
オブジェクトをクリップボードへピクチャ (画像) としてコピーします。バリアント型 (Variant) の値を使用します。
(Excel2003ヘルプ参照)