| |
▼しん さん：
おはようございます。
>
>文書で説明するのが難しいので、大雑把に言わせてください。
>コントロールツールボックスから"イメージ"をシートに複数枚枚貼り付けたところをイメージして下さい。
>
>1枚目は、"image1"になっていると思うのですが、この"1"の部分は変数で使用できますか？？
シートに貼り付けたActivexControlは、Oleobjectのコレクションから取得できます。
これを利用すると・・・、
Sub sample1()
Const imgcnt = 3
Dim ole As OLEObject
Dim g0 As Long
With ActiveSheet
For g0 = 1 To imgcnt
MsgBox .OLEObjects("image" & g0).Name
MsgBox .OLEObjects("image" & g0).Object.BackColor
Next
End With
End Sub
こんなコードが書けます。上記のコードはImageコントロールが
アクティブシートにImage1、Image2、Image3とあった場合の例です。
Image1のプロパティやメソッドは、Objectプロパティにて、Imageコントロールを
取得してからのインターフェースになりますから、注意してください。
（ユーザーフォーム上のImageコントロールと若干使用方法が違います）
詳細は、OleobjectとActivexControlのHelpを参照してみてください。
>
>変な質問で分かりにくかもしれませんがヨロシクお願いします
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
