スライドショートで表示する画像を横から移動させよう ( パソコン ) - ～ステキに感じるマイライフ～

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

【画像を横から動かす記述をする】
前回(２月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ユーザフォームの実行〕を選択します
画像が〔右横〕から移動して表示されます。

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

日	月	火	水	木	金	土
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

日

月

火

水

木

金

土

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

エクセル教室

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

「エクセル教室」書庫の記事一覧

コメント（3）

トラックバック（0）

Yahoo!ブログからのお知らせ

最新の記事一覧

最新のコメント

最新のトラックバック

ブログリンク

☆日記☆

☆ステキなphoto☆

☆ペットちゃん☆

☆楽しい☆

☆小説☆

標準グループ

過去の記事一覧

訪問者履歴

Yahoo!からのお知らせ

よしもとブログランキング