|
なおのＥｘｃｅｌ教室 さんの「スライドショーを作ってみよう（１）〜（２）」〜 【画像の貼り付けとボタンの作成】 新規のＢＯＯＫを開いてメニューの〔ツール〕→〔マクロ〕→〔Ｖ.Ｂ.Ｅ〕を選択します 画面が表示されたら〔挿入〕→〔ユーザフォーム〕を選択します プロパティーの〔Caption〕や〔Backcolor〕で好みのスタイルや体裁を整えます フォームの編集画面を選択すると〔ツールボックス〕が表示されますので 〔ボタン〕を選択状態にして適当な位置へドラッグして〔ボタン〕を作成します 同じようにCaptionで「次へ」と入力しBackcolorで体裁を整えます 〔ツールボックス〕で〔イメージ〕を選択状態にします フォームの適当な位置でドラッグして貼り付けます 〔イメージ〕を選択状態にしてプロパティの〔picture〕の〔右〕のボタンをクリックすると 〔ピクチャーの読み込み画面〕が表示されますので目的の〔ファイル〕を選択して 〔開く〕ボタンを押します 同じように重ねたい画像を〔イメージ〕から３枚作成して貼り付けます プロパティの「Height」「with」で画像の大きさを決めます メニューの〔挿入〕→〔標準モジュール〕を作成します Option Explicitの次の行に Public stage_x1 As Integer Public stage_y1 As Integer Public stage_x2 As Integer Public stage_y2 As Integer Public kbn As Integer と記述します カーソルが次の行にある状態でメニューの〔挿入〕→〔プロシージャ〕を選択します 画面が表示されたら名前に「imageSet」と入力し〔ＯＫ〕を押します Public Sub imageSet（） End sub が作成されますのでその中に Select Case kbn Case 1 UserForm1.Image1.Left = stage_x1 UserForm1.Image1.Top = stage_y1 UserForm1.Image2.Left = stage_x2 UserForm1.Image2.Top = stage_y2 UserForm1.Image3.Left = stage_x2 UserForm1.Image3.Top = stage_y2 kbn = 2 Case 2 UserForm1.Image1.Left = stage_x2 UserForm1.Image1.Top = stage_y2 UserForm1.Image2.Left = stage_x1 UserForm1.Image2.Top = stage_y1 UserForm1.Image3.Left = stage_x2 UserForm1.Image3.Top = stage_y2 kbn = 3 Case 3 UserForm1.Image1.Left = stage_x2 UserForm1.Image1.Top = stage_y2 UserForm1.Image2.Left = stage_x2 UserForm1.Image2.Top = stage_y2 UserForm1.Image3.Left = stage_x1 UserForm1.Image3.Top = stage_y1 kbn = 1 Case Else UserForm1.Image1.Left = stage_x1 UserForm1.Image1.Top = stage_y1 UserForm1.Image2.Left = stage_x2 UserForm1.Image2.Top = stage_y2 UserForm1.Image3.Left = stage_x2 UserForm1.Image3.Top = stage_y2 kbn = 2 End Select と記述します。 UserForm1を表示します 〔フォーム〕をダブルクリックしてソースを表示させます。 上の方にあるオブジェクトを〔UserForm〕に右のプロシージャで〔activate〕を選択します Private Sub UserForm_click（） End Sub が作成されますのでその中に stage_x1 = 20 stage_y1 = 10 stage_x2 = UserForm1.Left + UserForm1.Width stage_y2 = 10 kbn = 1 と記述します フォームを表示して「次へ」のボタンをダブルクリックします Private Sub commndButtom_click（） End Sub が作成されますのでその中に imageSet と記述します。 UserForm1を表示します メニューの〔実行〕→〔Sub/ユーザフォームの実行〕を選択します UserForm1を表示します
「次へ」のボタンを押すと画像が順番に変わります。 |
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- パソコン
EXCELでもFLASHのスライドと同じようなことが結構できるよね(^^
2006/2/19(日) 午後 3:49 [ なお ]
エクセルでスライドショーができるなんて、ビックリです!
2006/2/19(日) 午後 7:08
なおさん、ありがとうございました。最初は１枚しか張り付かないでガッカリしてましたが…できた時には嬉しかったです(o^∇^o)ﾉ 動く状態のものをＴＯＰページに貼り付けることは出来るのですか？
2006/2/20(月) 午前 8:52
Ｅｘｃｅｌのファイルをヤフーブログでは表示できないので、ブログに表示するにはやはりＦｌａｓｈで作成するのがいいと思います。表示する絵ができているのでしたらParaFla教室のスライドショーのようにするのはそれほど複雑ではないのでもしよかったら練習してみてくださいね(^^
2006/2/20(月) 午前 9:05 [ なお ]
なおさん、ありがとうございます。なるほどそういうことなんですね。分りました。(o^∇^o)ﾉ
2006/2/20(月) 午前 9:39
だいだいさん、エクセルでこんなことが出来るなんて私も知りませんでした。「なおさんのエクセル教室」で修行中の身です。毎回苦戦してその度に教えて頂いています。だいだいさんも宜しかったら如何ですか？
2006/2/20(月) 午前 9:49