VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/03/24(Fri) 12:11 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: Excelの画像サイズの変更 |
> この「Shapes」というものの使用方法がおかしいのでしょうか？
> VBで行っているのでVBとして使用できる方法が知りたいです。
どうして、回答した通りの事を試そうとしないのですか？
自分勝手な方法では当然できないでしょう。
先に投稿した下記コードではだめだったのですか？
objNewWkSheet.Shapes("Picture 1").Select
objNewWkSheet.Shapes("Picture 1").ScaleWidth 0.79, 0, 0
objNewWkSheet.Shapes("Picture 1").ScaleHeight 0.79, 0, 0
因みに、マクロの記録を見ると
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.ScaleWidth 0.79, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.79, msoFalse, msoScaleFromTopLeft
上記のようになっているかと。
それをVB用に変更すると下記のようになるかと。
xlSheet.Shapes("Picture 1").Select
xlApp.Selection.ShapeRange.ScaleWidth 0.79, 0, 0
xlApp.Selection.ShapeRange.ScaleHeight 0.79, 0, 0
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）