Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35137 / 76732 ←次へ | 前へ→

【46797】図の名前を変更
質問  ニッキ  - 07/2/15(木) 15:55 -

引用なし
パスワード
   初心者ですみません。
下記のように書くと名前が「Picture1」からになってしまい2,3,4、・・・・
と続きます。
これを、「Picture100」から・・・・・にしたいのですが、どのようにしたら
良いのでしょうか?
宜しくご指導お願い致します。


Private Sub CommandButton1_Click()
If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect
End If

  ActiveSheet.Pictures.Insert("D:\印.gif") _
    .Select
  Selection.ShapeRange.ScaleWidth 0.3, msoFalse, msoScaleFromTopLeft
  Selection.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

0 hits

【46797】図の名前を変更 ニッキ 07/2/15(木) 15:55 質問
【46802】Re:図の名前を変更 Kein 07/2/15(木) 16:44 発言
【46804】Re:図の名前を変更 ニッキ 07/2/15(木) 17:44 発言
【46807】Re:図の名前を変更 りん 07/2/15(木) 19:02 発言
【46822】Re:図の名前を変更 ニッキ 07/2/16(金) 12:53 お礼

35137 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free