すべての機能をご利用いただくためには、JavaScriptの設定を有効にしてください。
設定方法は、ヘルプをご覧ください。

～ステキに感じるマイライフ～

ご訪問ありがとうございます。今日もステキな１日でありますように♪

お気に入りの人に登録/削除

過去の投稿日別表示

[ リスト | 詳細 ]

2006年02月21日

2006年2月20日 | 2006年2月22日

全1ページ

[1]

☆シルクフラワー☆

頂いた胡蝶蘭のシルクフラワーです。
　　　　　　　　　　　　　　
シルクフラワーといっても絹ではなくポリエステルで出来ているそうです。
　　　　　　　　　　　　　　
絹を超えた【マジックシルク】【スーパーフラワー】と呼ばれていたそうですが

何時の間にか前の部分が抜けて【シルクフラワー】になったそうです。
　　　　　　　　　　　　　　
本物の花にはかなわないかもしれませんが一寸見ただけでは分からないほど

きれいに出来ています。

スライドショートで表示する画像を横から移動させよう

なおのＥｘｃｅｌ教室さんの
「スライドショーで表示する画像を横から移動してみよう」から

【画像を横から動かす記述をする】
前回(２月1９日）に保存したブックを開いて
〔ツール〕→〔マクロ〕→Ｖ.Ｂ.Ｅを選択します。
画面が表示されたら〔Module1〕を表示して〔挿入〕→〔プロシージャ〕を選択します
プロシージャーの〔名前〕に〔imageMove〕と入力し〔ＯＫ〕を押します

〔プロシージャの追加画面〕が表示されたら
Public Sub imageMove（）
End Sub　　　　　　　　　　　　　　　　　　
が作成されますので（　）の中に
〔img As object〕と入力します
続いて
Dim i As Integer
Dim j As Long
For i = stage_x2 To stage_x1 Step -1
　img.Left = i
　For j = 0 To 100000 Step 1
　Next
　DoEvents
Next　と記述します

【前に記述したところを修正します】
〔case1〕の〔UserForm1.Image.Left = stage_x1〕の行頭に半角の〔'〕を挿入します
最後の行のあとに〔imageMove UserForm1.Image1〕を追加します

同様に
〔case2〕の３行目の行頭に半角の〔'〕を入力　最後の行のあとに〔imgMove UserForm1.Image2〕
〔case3〕の５行目の行頭に半角の〔'〕を入力　最後の行のあとに〔imgMove UserForm1.Image3〕
〔case Else〕の１行目の行頭に半角の〔'〕を入力　最後の行のあとに〔imgMove UserForm1.Image1〕
と変更追加します
保存します

〔UserFoem1〕を表示して〔実行／Subユーザフォームの実行〕を選択します
画像が〔右横〕から移動して表示されます。

エクセルのメニュー〔ツール〕→〔マクロ〕→〔マクロ〕を選択して
画像が表示されたら〔実行〕を押しても同じように表示されました。ばんざい！