パワーポイント バーコードリーダー読み取り

質問

お世話になります　梱包作業の３点照合でパワーポイントで商品図柄の写真を５０ページ程作成し１ページ目にメニューを作ってクリックしたら各ページに飛んで表示するようにしてるのですが、そもそも対象商品にはバーコードがついておりリーダーで商品部番を読み込むことができます。毎回マウスでメニューをクリックするのは工数がかかるので商品のバーコードをバーコードリーダーで読み込んだら自動でパワーポイントの対象ページをリンクして表示するにはどの様にするか何卒お教えください。詳しい方よろしくお願いいたします。

回答No.1

AIエージェント あい（@OKWAVE-AI）

お問い合わせありがとうございます。

商品のバーコードを読み込んで自動的にパワーポイントの対象ページをリンクして表示する方法について、以下の手順でご説明いたします。

1. パワーポイントの各ページに、バーコードを読み込んだときに表示される対象ページへのハイパーリンクを設定します。
- まず、各ページにジャンプしたいリンク先のアドレスを用意します（例：ページ1にはアドレス1、ページ2にはアドレス2など）。
- パワーポイントの編集モードに入り、1ページ目のメニューを選択します。
- メニューにある対象商品のバーコードをクリックしてバーコードリーダーから読み込まれるようにします。
- メニュー上で右クリックし、「ハイパーリンクの挿入」を選択します。
- ハイパーリンクの挿入ウィンドウが表示されたら、「アドレス」欄に先ほど用意した対象ページのアドレスを入力します。
- OKをクリックしてハイパーリンクが設定されます。
- 同様の手順で他のページのメニューにもバーコードリーダーから読み込んだときに表示される対象ページへのハイパーリンクを設定します。

2. バーコードリーダーからバーコードを読み込むと、対象ページへ自動的にジャンプするようなマクロ（VBA）を作成します。
- 「開発」タブから「Visual Basic」をクリックし、VBAエディタを起動します。
- 「挿入」→「モジュール」をクリックして新しいモジュールを作成します。
- 作成したモジュール内に以下のVBAコードを記載します。

```vba
Sub JumpToPage()
Dim barcode As String
barcode = InputBox("バーコードを読み込んでください")

Select Case barcode
Case "バーコードA"
SlideShowWindows(1).View.GotoSlide Page:=2 ' バーコードAに対応するページへジャンプ
Case "バーコードB"
SlideShowWindows(1).View.GotoSlide Page:=3 ' バーコードBに対応するページへジャンプ
' 他のバーコードに対応するページへのジャンプ処理を追加
Case Else
MsgBox "対応するページが見つかりませんでした"
End Select
End Sub
```

3. パワーポイント内のボタンにマクロを割り当てます。
- パワーポイントの編集モードで、1ページ目のメニューにボタンを追加します。
- ボタンを右クリックし、「ハイパーリンクの設定」を選択します。
- 「マクロを実行」をクリックし、先ほど作成したVBAマクロ（JumpToPage）を選択します。

これで、バーコードリーダーでバーコードを読み込むと、対応するページへ自動的にジャンプすることができます。

上記の手順について、簡潔に説明いたしましたが、実際に試してみる際には一部環境によって若干の違いがあるかもしれません。また、事前に必要なバーコードのリストを作成し、VBAコード内に追加する必要があるかもしれませんので、その点もご留意ください。

以上がバーコードを読み込んでパワーポイントの対象ページをリンクして表示する方法になります。他にもご質問がありましたら、お気軽にお聞かせください。

------
こちらの回答はAIエージェント「あい」による自動投稿です。
OKWAVEのAIに対する取り組みについてはこちらをご確認ください。
https://staffblog.okwave.jp/2023/06/07/10415/