Access97 SizeMode/OLEサイズ


三流君のHP [サイトマップ] [VBA系] [ASP系] [コンビニ系] [愚痴系] [初心者系] [ネットで稼ぐ系] [出会い系] [在宅プログラマー/SOHO/派遣]
====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ 三流PG 番外編 今日の一品 No.011 ]   2000/02/14 月曜日  発送予定
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
三流PG 番外編 今日の一品 は 隠し味として、
軽めのVBA関係のサブルーチンを載せていきたいと思います。
----------------------------------------------------------------------------

Access97 SizeMode/OLEサイズ

なぜか昼休み、発行中のken3です。 今日はイヤナ日ですね(PS.参照) ってのは、置いといて、 今回も、Access画像関係の処理です。 *Accessでの画像関係、、みんな興味あるみたいですね。。 ------------------------------------------------------ >この間の、社員名簿の件で一つ質問があります。 >画像ファイルが仮に横300×400ドットとしまして、 >個人帳票はそのままでよい>として、 >グループ帳票のとき画像データをサムネイル化 >(例えば、150×200のように縮小して)して >打ち出すことは可能でしょうか? ------------------------------------------------------ 画像オブジェクトの SizeMode/OLEサイズ" プロパティをZoomに変更で、、 試してみて下さい。 下記、Accessのヘルプより "SizeMode/OLEサイズ" プロパティの設定値は次のとおりです。 設定値 内容 Visual Basic Clipクリップ オブジェクトを実際のサイズで表示します。オブジェクト がコントロールより大きい場合、コントロールの右下の境界線に入りきらな い部分は表示されません。(既定値) acOLESizeClip (0) Stretchストレッチ コントロールのサイズに合わせてオブジェクトを 拡大または縮小します。この設定値を使用すると、オブジェクトの縦横の比 率が変化する可能性があります。 acOLESizeStretch (1) Zoomズーム オブジェクトの縦横の比率を変更せずに、サイズを調整し てオブジェクト全体を表示します。この設定値を使用すると、コントロール のサイズを変更したときに、コントロールに余白が表示される可能性があり ます。 acOLESizeZoom (3) いろいろ、プロパティなど、イタズラしてみると、面白いですよ。 *あたりまえの操作らしいけど、(私は、最近気がついた)   プロパティの入力のところで、F1キー押すと、    該当するHelpが起動します。     一度試してください。。。 また、前回のサンプルは、下記から.... ( e010/index.html 参照 ) *実行サンプルをダウンロードして、  プロパティなど修正してみてください。 最後に、読者さんより、画像処理の紹介HPをいただきました ----- >さて、Accessでの画像の取り扱いですが、 >HPを開設しておりますので、一度ご覧くだ >さいませ。 > >http://www.atunion.nishiwaki.hyogo.jp/mynewweb > >自分でも作ってみてはじめてMSのOLE技術のすごさに驚きました。 >私のURLとMailアドレスをあなたのメルマガに載せてください。大歓迎です。 > >現在までに、400MBから650MB筒一杯の.MDBを約1月で2枚のペースで >CD−RにCopyしています。 > >ときどき、トラブルは出ますが、Windows 95とAccessとCD−R W >ritingSoftの操作でカバーできます。 > >まだ、元気に動いていますよ。 > >現在は、AccessのTableからマウスのクリックだけでForm上に画像 >データベースを作成しています。 > >このシステムは販売も.MDBの公開もしておりませんが、必要とあらば「タダ」で差し >上げますよ。 > >ソースコードの解析ができるかも・・・・・・・そのへんのことはまだよくわかりま >せんが。 ----- 興味のある人は、HPのぞいてみてください。 今回も、役立つ回答になってませんが、 がんばってください。 *いつものことだが、わかりにくい、、、、 今日の一言、、  今日も、標準的な機能(プロパティの変更)でまとめやがって、、   プロらしいテクニックないの?、、、(ないんだよねぇ、、) やっぱ、三流だなぁ、、と声が聞こえてきたところで、このへんで、、 今日も逃げ出す、、、悪人 Ken3 でした。。。 PS.チョコレートの画像を送ってくれた、    null@xxxx.com さん、ありがとうございました。     *この人も返事のメールがエラーでかえって来るんだよな、、       (もしかして、男性読者にからかわれてる? nullの意味は?)    また、義理チョコは、会社で1つも、もらってません、、、     人気無いリーダーには、義理チョコの1つも無しカヨ、、、      と、独り言が始まりそうなので、このへんで失礼します。       *いやな日ですね、、今日は、、、

VBA系の無料メルマガ書いてます
メルマガ『VBAで楽しくプログラミング』(無料) を購読しませんか?
めろんぱん E-mail


...



番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)
2000/05/13 SQL Count関数を使ってみる
2000/05/11 Access97 標準関数Midなどが使えない
2000/05/09 SendObjectのエンコード
2000/05/08 クエリーで〜以外とは
2000/04/27 Imagingコントロールを使ってみた
2000/04/25 Excel97 VBA イベントなど
2000/04/24 Access97で複数のプリンタを切替えて使用
2000/04/20 書式付きエクスポート DoCmd.OutputToで、できます
2000/04/19 Access97でExcel形式へExport時に書式設定を行いたい
2000/04/13 Access97でOutlook97/98とリンクする方法
2000/04/13 VBA Nameステートメント
2000/04/04 Accessでキー取得
2000/04/04 AccessでFile参照ダイアログ?
2000/04/03 縦書用数値変換改良
2000/04/01 Access Err テーブルを消したい
2000/03/31 縦書き数値、どうしてますか?
2000/03/29 VBA 手抜きで、処理後、explorerを開く
2000/03/28 Access --> Word へデータ
2000/03/24 名前一覧Excelの機能で、同じことできました
2000/03/23 Excel97 VBA セルに付けた名前一覧を作成する
2000/03/21 Excel セルに名前付け
2000/02/25 iniFileを読む GetPrivateProfileString
2000/02/15 Excel VBA Rangeオブジェクトとサンプル
2000/02/14 Access97 SizeMode/OLEサイズ で画像調整
2000/02/10 Access97 Pictureプロパティとサンプル
2000/02/09 Access97 集計クエリーで重複値をハジク
2000/02/07 Access97 サブフォームへ値をセット
2000/02/04 Access97 コントロールソース、チョットした使用法
2000/02/01 Access97 フォームフッター
2000/01/18 Access97 now()関数で有効期限処理、、、

_/_/ _/_/ _/_/ _/_/ _/_/
三流君のHP主な飛び先
VBAで楽しくプログラミング 最新情報 掲示板 バックナンバー メルマガ登録と解除
コンビニのオモテとウラ話 最新情報 掲示板 バックナンバー メルマガ登録と解除
ASPで遊ぶ、失敗する 最新情報 掲示板 バックナンバー メルマガ登録と解除
AB型三流PG 業務のグチ 最新情報 掲示板 バックナンバー メルマガ登録と解除
初心者にやさしいプログラム 最新情報 掲示板 バックナンバー メルマガ登録と解除
ネットで稼ぐ本音と失敗談 最新情報 掲示板 バックナンバー
www.ken3.org(サイト内)から Google を利用して、

人気ページ/アクセスランキング
↑一週間の訪問者数と人気のページを表示してます

その他、宣伝ページです
・[ アンケート/ポイント]などで月500円を必死に稼いでます(笑)
・[ SOHO/在宅プログラマー/派遣]の話題、Webエントリー後の反応など
・[ 出会い系]のお話、自分で出会い系のシステム作れないか?探ったお話
・[ ネットで小金を稼げるか?]実験中だが成果は無し
※あとは、[パソコン関係の書籍]や[ゲームソフト]、 [パソコンパーツ] をバナーから売ろうとするけど、
 なかなかうまくはいかないよね(笑)
←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社(アスキー、インプレス等)が共同運営するコンピュータの本・専門店 種類が豊富で探し易い※在庫ありが48時間以内発送

プログラム系、流れや基本系?
[No.4 プログラムって?流れって?]
[No.5 変数・乱数・定数]
[No.8 配列とArray関数]
[No.9 If文で範囲のチェック]
[No.10 Select Case XX To XX と Is >= XX]
[No.11 InputBox関数で簡単な値を受け取る]
[No.12 入力結果の判断いろいろ]
[No.19 Exit Subで途中退場する]
[No.20 配列変数ですっきりと?(2次元配列)]
[No.21 変数の型を意識する]
[No.22 関数って?Subプロシージャを呼ぶ]
[No.23 値を返すユーザー関数、Function関数]
[No.24 関数のパターンを少し]
[No.35 イベント処理について]
[No.36 オブジェクトのプロパティについて]
[No.37 オブジェクトのメソッドについて]
[No.45 歌詞の表記を参考に関数を作成]
[No.73 オブジェクトのループはFor Each In でループさせる]

VBA関数
[No.3 Dir関数でファイルの存在をチェックする]
[No.17 Val関数で文字列を数値に変換してみた]
[No.18 文字列を数値に変換、CIntで変換]
[No.38 キャラクタコード?って何? Chr関数、Asc関数]
[No.39 StrConv関数で半角を全角文字にしてみた]
[No.40 Len関数で遊ぶ、遊ばれる]
[No.72 文字列を日付型に変換、Cdateへの値の渡し方いろいろ?]
[No.77 Not演算子で細工する、プログラムはパズルのように...]

Excel関係
[No.28 Excelのグラフをgifへ変換 .Exportメソッド使用]
[No.43 セルのB3を参照するには?]
[No.44 Cells(257)とCells(2,1)の関係]
[No.49 Excel Rows(n).Select で行選択]
[No.47 Excel Application.GetOpenFilenameでファイル名取得]
[No.60 Cancel=Trueの使い方(例題:Excel 右クリック禁止)]
[No.51 Excel Range オブジェクトを使う]
[No.86 Excel 起動オプションのお話(引数的なラブレターを渡したい)]

Excel UserForm
[No.30 Excel UserForm テキストボックスのイベント]
[No.32 Excel UserForm_KeyDownイベント発生条件]
[No.34 ┌ ─ ┐│└ ┘を使って、文字列を囲ってみたい]
[No.42 ExcelのForm シートと連動させる]
[No.46 カウンタで先頭行チェック、空白で終わりの判断]
[No.61 Excel Form 閉じる方法 Unload Me]
[No.63 Excel UserForm で データ・フォームの機能を真似てみる]
[No.68 Excel Formで値を設定、標準モジュールで使用したい]
[No.84 Excel UserFormでコンボボックスを使用してみた]

Access 関係
[No.1 いきなりサンプルじゃぁねぇ、、文句の一つ言いたいよ]
[No.75 空のMDBを作成後、DoCmd.CopyObjectでテーブルコピー]
[No.85 Access クエリーで演算フィールドを使ってみる]

Access フォーム
[No.41 AccessのForm .Pictureプロパティで画像参照]
[No.62 Access フォームでパスワード入力(入力後*****表示)]
[No.65 Access Form TextBoxの.SelLength .SelStartプロパティ]
[No.66 Access ユーザーマスターのチェックとメニュー切り替え]
[No.67 Access Formを隠す Me.Visible = False (Closeとの違い)]
[No.69 Access コンボボックスを自動で開きたい]

Access レポート
[No.74 Access 列型レポートの左端に印刷したい]
[No.76 Access レポート Me.NextRecord = Falseで移動を止める]

Access から Excel 連携
[No.2 AccessからExcel出力]
[No.7 MDBと同フォルダのExcelファイルを開く]
[No.13 Excel セルに名前を付けてみる]
[No.14 Excel 隣のシートを参照して逃げる]
[No.48 AccessからExcelブックを開き、書式設定を行う]
[No.54 AccessからExcel開いて、処理終了後に閉じたい]
[No.58 Access クエリーを Excel既存シートへ エクスポート]
[No.59 Excelのマクロ付きフォーマットを壊されないように]
[No.64 AccessからExcelファイルを開いて・印刷して・閉じたい]

Excel から Access 連携
[No.15 ExcelからAccessのフォームを開いてみました]
[No.16 ExcelからAccessのモジュールを呼んでみました]

テキストファイル処理
[No.27 テキストファイル処理 ファイルへの書き込み]
[No.29 テキストファイル処理 ファイルからの読み込み]
[No.31 Write #で ””を付けた書き込み]
[No.33 FreeFile関数で空いてるファイル番号を返す方法]

インターネットエクスプローラーの操作(InternetExplorer.application)
[No.50 IE起動 CreateObject("InternetExplorer.application")]
[No.52 InternetExplorer.application .document.body.innerText]
[No.53 文字列を探す、InStr関数の使い方]
[No.70 InternetExplorer.application .document.all(0).innerHTML]
[No.71 IE操作 リンク先を取出す .Document.links(i).href]

Outlookを操作する
[No.55 Outlookを操作してメールを送りたい]
[No.56 Outlookから複数のアドレスにBCC送信]
[No.57 Outlook メールアイテムの形式でハマる]
[No.78 Outlookでファイルを添付するには?.Attachments.Add]

FTPの設定ファイルを作成してみた
[No.25 コマンドラインのFTPを使ってみた]
[No.26 FTP -n オプションとuserコマンド]

Excel HTML表作成ツールもどき
[No.80 Excelのセル範囲をHTMLの表(.html)にしてみる]
[No.81 セルの右寄せ、中央寄せをHTMLの表にしてみる]
[No.82 背景色、フォントカラーをHTMLの表にしてみる]
[No.83 改行LFを<BR>などHtml用にエンコードして書き込む]

その他
[No.6 ファイルの起動場所を知る方法]
[No.79 SJIS--JISコードの文字列を作成したい]

...
挨拶
最後まで読んでいただき、どうもです。
失敗続きのAB型の変わり者 三流プログラマー Ken3です。
[Excel/Access VBA],[ ASP(Active Server Pages)]の解説
[ プログラマーの愚痴]、[ 元コンビニ店長時代の話] をネタにしてHP作成、メルマガ書いてます。
最近、[初心者にやさしいプログラム]の解説と[ ネットで稼ぐ小悪テク]の解説を始めようかなぁと思ってます。
作者に感想・質問/要望を送る(気軽に質問・感想書いてください)
あなたのお名前(ニックネーム) さん

作者からの返信は、 不用 掲示板 E-mail で受信したい
※送っていただいた質問・感想はアドレス以外、メルマガで紹介する場合があります

...