כללי איך מייבאים הרבה תמונות ביחד כלינקים בקורל?

  • הוסף לסימניות
  • #1
קורליסטים - תפגינו ידיעות!
אני צריך לעמד קטלוג עם איזה 700 תמונות והיבוא נותן לי לייבא כלינק כל פעם רק תמונה אחת!
האופציה הכי קרובה שהגעתי הייתה עם איזה פקודת מאקרו ששכפלתי אבל נכשלה..

מישהו יודע על פתרון לעניין?

נ.ב.
לא יתקבלו המלצות על תוכנות אחרות! קורל מאז ולתמיד.
 
  • הוסף לסימניות
  • #2
יש אפשרות דרך מאקרו.

תעתיק את הקוד הבא:


קוד:
Sub Macro1
 
 
[LEFT]' Recorded 03/02/2010[/LEFT]
 

[LEFT]Dim OrigSelection As ShapeRange

 
Set OrigSelection = ActiveSelectionRange

Dim impopt As StructImportOptions

Set impopt = CreateStructImportOptions
With impopt
    .Mode = cdrImportFull
    .CombineMultilayerBitmaps = True
    .LinkBitmapExternally = True
    .MaintainLayers = True
End With
Dim impflt As ImportFilter
[COLOR=red]Set impflt = ActiveLayer.ImportEx("C:\new folder\image- (0).JPG", cdrJPEG, impopt)[/COLOR]
[COLOR=red]impflt.Finish[/COLOR]
Dim s1 As Shape
Set s1 = ActiveShape
s1.Move 49.047311, -16.732917
Dim grp1 As ShapeRange
Set grp1 = s1.UngroupEx[/LEFT]

End Sub[LEFT]
[/LEFT]

דבר ראשון כל שמות הקבצים צריכים להיות עם מספרים עוקבים (מ-1 עד 700 למשל) ובאותה תיקיה. מה שאתה בעצם עושה זה, איפה שמסומן כרגע הכתובת אתה שם את הכתובת של הקובץ הראשון ולאחר מכן אתה משכפל את שני השורות באדום ומשנה רק את המספר בשם הקובץ. זו עבודה ידנית נכון, אבל אולי יש למישהו דרך (אולי דרך מיספור אוטומטי בוודר או אקסל) ליצור את כל השורות עם המספרים אוטומטית.​



בכל אופן שלחתי את הקוד לדוד שלי שהוא מבין קצת בויז'ואל בייסיק ויתכן שהוא יצליח לשתול שם קוד 'לופ' שיעשה את כל העבודה בלי הרבה מאמץ.​



בהצלחה!​
 
  • הוסף לסימניות
  • #3
ישראל תודה!!
שחקתי קצת עם חיפושים החלפות באקסל ווורד, הכנסתי למאקרו שלך,
ופועל יופי!!!
 
  • הוסף לסימניות
  • #4
יש פעמון בצד, תן לחיצה :) לילה טוב!
 
  • הוסף לסימניות
  • #5
איפה למדת את זה?
 
  • הוסף לסימניות
  • #6
אחרי שבדקתי קצת את האופציה, מסתבר לי שהפרש המשקל בין שני קבצים תואמים בתוכנם לא מצדיק את ההשקעה ביבוא לינקים במאקרו וכו'.
הקובץ הראשון עם 150 תמונות מיובאות שוקל 350מ"ב
השני עם 150 תמונות מלונקג'ות שוקל 210מ"ב
(הגריד בנפרד שוקל 6מ"ב).
העובדה על הקובץ המלונקג' כבדה כמעט כמו על הקובץ הרגיל, מה גם שעניין הסגירה של הקובץ המלונקג' קשה וכבדה עוד יותר.

עד כאן הנסיון שלי בנושא.
 
  • הוסף לסימניות
  • #7
אתה עובד לפעמים עם תצוגת Draft או אפילו Wireframe?
 
  • הוסף לסימניות
  • #9
אם אתה עובד עם קבצים כבדים זה יעזור לך קצת כשתרצה לעבור בין עמודים ובמשך העבודה.
כמובן שבשמירה או בייצוא זה לא יעזור לך.
 
  • הוסף לסימניות
  • #10
נכתב ע"י ונתנו10;355586:
איפה למדת את זה?
התכוונת אלי? לא למדתי, פשוט ניסיתי להבין מה הקוד אומר פחות או יותר, קצת ניסוי וטעיה והגעתי לתוצאה..
 
  • הוסף לסימניות
  • #11
בזמן שתשקיע לסגור את הקובץ
בלי שזה יסגר 10 פעמים
ובלי שהלב יזוז ממקומו מספר פעמים

תלמד קצת את האינדייזין
ותרוויח הרבה מאוד זמן.
 
  • הוסף לסימניות
  • #12
נכתב ע"י באלמעלה;356195:
בזמן שתשקיע לסגור את הקובץ
בלי שזה יסגר 10 פעמים
ובלי שהלב יזוז ממקומו מספר פעמים

תלמד קצת את האינדייזין
ותרוויח הרבה מאוד זמן.

זה בסדר, הנושא בטיפול :).
זה קצת קשה עם אנשים שמחזיקים בדיעות קדומות שמורים לו לעשות בדיוק ההיפך... אבל יהיה בסדר.
 

פרוגבוט

תוכן שיווקי
פרסומת

פוסטים חדשים שאולי לא קראת....

הצטרפות לניוזלטר

איזה כיף שהצטרפתם לניוזלטר שלנו!

מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!

לוח מודעות

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק כה

אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
נקרא  2  פעמים
למעלה